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SECTION  1 

STROBE  TRIANGULATION  FORTRAN  PROGRAM 

The  strobe  triangulation  simulator  is  programmed  in  three  sections. 
Section  1  provides  simulation  of  the  target  signals  as  they  would  appear  to 
any  azimuth- scan  radar.  Section  2  simulates  the  triangulation  processes, 
and  Section  3  provides  data  reduction  on  the  output  of  Section  2. 

This  portion  of  the  report  presents  the  input/output  format,  glossary 
of  terms,  FORTRAN  listing,  and  flow  charts  by  Program  Section 

1.  1  SECTION  I  -  ENVIRONMENT  PROGRAM 

1.1.1  Input /Output 

Input  parameters  necessary  for  each  computer  run  are  listed  and 
described  below: 

NDS  Number  of  data  sets  where  a  data  set  consists  of  all 

the  parameters  which  foPow.  NDS  is  an  integer  and 
is  punched  in  Columns  1  through  5. 

IM1  Intermediate  Output  One.  If  IM1  is  zero,  run,  clock, 

unsorted  azimuths,  associated  range  functions  and 
radar  number  will  be  printed  out.  If  IM1  is  one,  the 
output  just  described  is  bypassed. 

IM2  Intermediate  Output  Two.  The  output  data  is  the  same 

as  for  IM1  except  the  azimuths  have  been  sorted  in 
ascending  order.  Output  control  is  also  the  same. 

Intermediate  Output  Three.  This  output  provides  data 
regarding  detection  criterion.  NOL  (see  Glossary  of 
Terms),  T  (I),  S,  AI  (I),  BI(I),  SUMJ,  SUMK,  SNR, 

SR  (K),  PD  (K),  RN,  ST  (L),  K  and  L  are  printed  out, 
if  IM3  =  0,  and  bypassed,  ifIM3  =  l. 
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IM4  Intermediate  Output  Four.  The  output  consists  of  a 

table  of  detected  azimuths,  if  IM4  =  0,  and  the  output 
is  bypassed,  if  IM4  =  1. 

ID  Run  number,  an  integer  from  one  to  one  thousand. 

NO  Number  of  targets,  an  integer  from  one  to  one  hundred. 

NR  Number  of  radars,  an  integer  from  one  to  five. 

IFL  Number  of  flight  legs.  Flight  legs  are  counted  as  follows: 

Assume  a  flight  of  four  targets  identified  as  numbers 
one  through  four.  Assume  that  the  four  fly  parallel 
courses  initially.  Suppose  that  at  frame  10  (clock  10) 
target  one  starts  a  diversionary  maneuver  but  targets 
two,  three  and  four  continue  on  their  original  courses. 
Suppose  at  frame  25,  targets  three  and  four  break  off 
from  their  original  course  and  each  assume  new  courses 
which  are  not  parallel.  For  this  example  IFL  =  3.  Thus 
flight  legs  are  counted  on  a  group  basis.  Even  though 
targets  three  and  four  took  up  new  courses  at  clock  25 
this  maneuver  counts  as  only  one  flight  leg  as  far  as 
determining  IFL  is  concerned.  IFL  is  an  integer  from 
one  to  two  hundred. 


MAXLIM  Maximum  number  of  frames  in  any  one  run.  MAXLIM 
is  an  integer  from  one  to  one  hundred. 

SCALE  Scale  factor  for  the  off-line  display.  The  scale  factor 
is  in  nautical  miles. 


RFL 


Range  function  limit. 

RFL  = 


RFL  is  computed  as  follows: 
1 

1.  44h 


AG 


where  h  is  the  altitude  in  feet  of  the  attacking  targets. 
Antenna  gain. 
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X ’ (I)  Initial  x  coordinate  (frame  0)  of  target  I,  in  nautical 

miles. 

Y  (I)  Initial  y  coordinate  (frame  )  of  target  I,  in  nautical 

miles.  Note:  Only  the  x,  y  coordinates  of  one  target 
are  placed  on  a  card.  Furthermore,  the  targets  will 
be  identified  by  number  starting  with  one  in  the  order 
in  which  the  cards  are  read.  . 

RX  (I)  X  coordinate  of  radar  I,  in  nautical  miles. 

RY  (I)  Y  coordinate  of  radar  I,  in  nautical  miles.  Radars 

are  also  identified  by  number  starting  with  one  in  the 
order  in  which  the  radar  cards  (one  radar  coordinate 
set  per  card)  are  read.  . 

PD  (I)  Probability  of  detection. 

SR  (I)  Signal  Ratio. 

ET  Error  term  in  radians.  This  is  the  "peak  to  peak" 

range  throughout  which  a  true  azimuth  may  be  jittered 
to  simulate  random  azimuth  error. 

S  One  half  of  the  passive  main  beam  width,  in  radians. 

Q  Main  beam  width,  in  radians,  ET,  S  and  Q  are 

read  in  from  one  card. 

A  Number  of  sequential  frames  for  which  computations 

are  to  be  done.  If  A  is  negative  then  B  frames  are 
skipped  before  A  frames  are  computed.  A  is  an  integer. 
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B  Number  of  frames  that  are  to  be  skipped. 

LIMIT  Frame  number  at  which  a  new  flight  leg  occurs,  or  at 
which  it  is  desirable  to  change  A  and/or  B.  LIMIT  is 
an  integer  from  one  to  one  hundred.  A,  B  and  LIMIT 
are  read  from  one  card. 

DX  (I)  X  increment  for  target  I  motion  each  frame  in  nautical 
miles. 

DY  (I)  Y  increment  for  target  I  motion  each  frame,  in  nautical 
miles.  DX  (I)  and  DY  (I)  for  target  I  are  read  from  one 
card.  Note:  The  card  order  is  very  important  since  the 
increments  are  ordered  numerically  as  read  in  starting 
with  one.  Thus,  for  example,  the  increment  card  for 
target  3  must  be  the  third  increment  card  so  that  it  will 
be  associated  properly. 

There  are  three  general  types  of  output;  these  are  intermediate 
data,  display  data,  and  environment  data. 

1.  1.  1.  1  Intermediate  Data 

Intermediate  data  is  primarily  for  check-out  purposes  and  is  put 
on  Tape  Unit  6  for  tabulating.  There  are  four  sets  of  intermediate  data 
each  associated  with  an  IM  variable  which  is  an  input  parameter.  Run, 
clock,  unsorted  azimuths,  range  functions  and  radar  number  are  asso¬ 
ciated  with  IM1.  If  IM1  is  zero,  output  is  obtained;  if  IM1  is  a  non- zero 
integer  from  one  to  9999,  no  IM1  output  is  obtained. 

IM2  output  is  comprised  of  the  same  variables  as  IM1  except 
that  the  azimuths  have  been  ordered.  The  column  titles  are  not  printed 
as  they  are  in  IM1,  but  IM2  output  is  identified  with  the  title  "SORTED 
AZIMUTHS".  The  control  for  IM2  output  is  the  same  as  for  IM1  output 
and  other  IM  outputs,  which  will  be  described  in  the  paragraphs  to  follow. 


IM3  Output  provides  information  about  strobe  detection.  The 
following  variables  comprise  1M3:  NOL.,  T(I),  AI{I)  (trailing  edge  of  main 
beam),  BI(I)  (leading  edge  of  main  beam),  SUM  J,  SUM  K,  SNR,  SR(K), 
PD(K) ,  RN,  ST(L),  K  and  L. 

There  are  several  idiosyncrasies  about  IM3  output  which  should 
be  explained  in  order  to  avoid  confusion  in  interpreting  the  data.  First 
of  all,  note  that  AI(I),  BI(I),  SNR,  and  RN  are  never  cleared;  they  are 
simply  replaced  as  the  occasion  demands.  Thus,  whenever  T(I)  is  nega¬ 
tive  (either  -1.  or  -2. )  AI(I),  BI(I),  SNR  and  RN  are  not  computed  so  that 
whatever  values  are  stored  in  AI(I),  BI(I),  SNR  and  RN  remain  there  and 
are  outputed  with  the  associated  value  of  negative  T(I).  Therefore,  disre¬ 
gard  the  values  of  AI(I),  Bl(I),  SNR  and  RN  whenever  T(I)  is  negative. 
Second,  even  though  SUM  J  and  SUM  K.  are  cleared,  this  clearing  is  done 
just  before  a  new  SUM  J  and  SUM  K  are  to  be  computed.  Thus,  when  T(I) 
is  negative  SUM  J  and  SUM  K  are  not  cleared  and  the  latent  values  will 
be  outputed.  Therefore,  disregard  the  values  of  SUM  J  and  SUM  K  when¬ 
ever  T(I)  is  negative.  Third,  if  SUM  K  is  0.  the  computation  of  SNR  is 
bypassed  so  that  latent  value  will  be  printed  as  well  as  that  of  RN.  Fourth, 
the  variables  PD  and  SR  are  indexed  by  K  and  ST  by  L.  L  is  n*.L  incre¬ 
mented  unless  an  azimuth  (strobe)  is  detected  so  the  latent  value  of  ST(L) 
will  be  printed.  Therefore  ST(L.)  is  valid  only  when  L  changes  and  is  not 
zero.  K  is  incremented  only  for  finite  SNR.  Thus  the  values  of  PD(K)  and 
SR(K)  are  valid  on’v  when  K=  1,  2,  3  or  4. 

IM4  Output  is  a  list  of  detected  strobes.  Since  the  ST(L)  table 
is  placed  into  the  first  L  positions  in  the  T(I)  table  after  the  defection 
process  is  complete  and  since  detected  strobes  are  printed  out  in  groups 
of  four  only  the  first  L  entries  in  the  4n  of  the  printed  table  will  be  valid 
(n  is  the  number  of  lines  in  the  table).  For  example,  suppose  there  nine 
targets  and  only  seven  strobes  detected.  Then  two  lines  would  be  •'‘rintec 
but  only  the  first  seven  entries  would  be  valid.  The  eight  azimuth  would 
be  an  undetected  strobe  or  possibly  a  detected  one  which  had  been  "moved 
up".  That  is,  perhaps  strobes  l,  2,  3,  5,6,  7  and  8  were  detected,  then 
strobes  1, 2,  3,  5  would  be  printed  in  the  first  line  and  6,  7,  8,  8  in  the  second 
line. 

1.  1.  1.  2  Display  Data 

Three  types  of  output  are  provided  for  display  purposes.  These 
are  radar  positions  for  each  run  (type  16)  true  target  positions  for  each 
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frame  (type  11)  and  azimuth  in  degrees  and  the  direction  points  SINM  COSM 
for  each  detected  strobe  for  each  radar  for  each  frame  (type  12).  All 
display  data  is  put  on  Tape  Unit  5  and  decimal  cards  are  punched  from  the 
tape. 

1.  1.  1.  3  Environment  Data 

There  are  eight  types  of  environment. data  all  of  which  are  put  on 
Tape  Unit.4.  Control  output  (no  type  number)  occurs  only  oi._e  per  run  and 
consists  of  the  run  number,  number  of  targets,  number  of  radars  and  maxi¬ 
mum  limit  of  the  clock.  No  titles  are  used.  Radar  position  output  (type  16) 
is  identical  in  every  respect  to  that  used  for  display  purposes.  Similarity 
for  true  target  position  output  (type  11).  Index  output  (type  14)  occurs  once 
per  radar  per  frame  if  the  given  radar  detected  strobes.  The  index  is  a 
count  of  the  number  of  strobes  detected  by  that  radar.  Sector  data  output 
occurs  once  per  radar  per  frame  if  the  given  radar  detected  any  strobes. 
Sector  data  consists  of  the  number  of  targets  in  a  sector  and  the  leading 
and  trailing  edges  of  the  sector.  Run  length  and  index  output  (type  17)  in 
redundant  in  that  it  combines  type  13  and  14  in  slightly  different  form. 
Azimuth  output  (type  18)  is  a  list  of  the  center  azimuth  for  each  strobe  for 
a  given  radar  for  a  given  frame.  NRD  output  (type  19)  has  the  same  format 
as  index  output  but  the  index  is  replaced  with  a  count  of  the  number  of  radars 
which  have  made  at  least  one  strobe  detection  in  that  frame. 

1.  1.  2  Glossary 

A  Number  of  frames  to  be  computed.  (If  A  is  negative 

then  B  frames  are  skipped  before  A  are  computed.  ) 

AG  Antenna  gain  expressed  as  a  dimensionless  ratio. 

AI  (!)  Trailing  edge  of  main  beam  when  main  beam  is  centered 

on  T  (I). 

ALPHA  (I)  or  Azimuth  of  the  leading  edge  of  a  target  where  I  or  J  is 
ALPHA  J  the  running  index  on  the  variable. 

B  Number  of  frames  to  be  skipped. 
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BETA  (I)  or 
BETA  (J) 

BI  (I) 


C  (I) 


CES  (I) 


Azimuth  of  the  trailing  edge  of  a  target  where  I  or  J  is 
the  running  index  on  the  variable. 

Leading  edge  of  main  beam  when  main  beam  is  centered 
on  T  (I). 

W  (I)  converted  to  degrees  for  use  with  off-line  Be:«dix  display 
facility. 

A  variable  generated  for  use  by  the  off-line  Bendix  dis¬ 
play  facility.  The  variable  is  indexed  by  I.  See  FORTRAN 
statement  following  number  122  for  a  definition  of  CES  (I). 


CLK 


Title  for  the  frame  number. 


DX  (I) 


DY  (I) 


X  increment  by  which  target  I  is  to  be  moved  each  frame 
where  I  is  the  running  index  on  the  variable. 

Y  increment  by  which  target  I  is  to  be  moved  each  frame 
where  I  is  the  running  index  on  the  variable. 

Error  term.  This  is  the  total  width  in  radians  of  the 
azimuth  interval  throughout  which  the  observed  azimuth 
may  fall.  The  error  term  azimuth  interval  is  centered 
about  the  true  azimuth. 

Index 


IC,  IE 


Indices  used  for  azimuths  and  corresponding  range 
functions  in  the  azimuth  sorting  routine  IE  is  also  set 
equal  to  the  number  of  sectors  less  one  and  used  as  the 
maximum  index  value  in  a  do  loop. 

Run  number. 

Number  of  flight  legs. 

Temporary  storage  for  a  particular  value  of  I,  an  index 
in  the  merging  routine. 
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LJ 

IMI,  IM2,  etc. 

£ 

JLB 

K  (I)  or  K  (J) 

KING 

KLOCK 

KPLB 

KTS 

L_ 

LA 

LAP 

LB 

LIMIT 

MAR 

MARG 


Index  equal  to  I  plus  one.  IJ  is  used  in  the  merging 
routine. 

Intermediate  Output  1,  Intermediate  Output  2,  etc.  If 
IMI  =  0,  then  the  output  identified  with  IMI  will  be  printed 
on  Tape  Unit  6.  If  IMI  =  1  then  the  output  identified  with 
IMI  will  be  bypassed.  The  primary  purpose  is  to  provide 
output  for  checkout  purposes. 

Index 

Variable  of  an  assigned  "GO. TO”  statement. 

Number  of  targets  in  a  sector. 

Variable  of  an  assigned  "GO  TO"  statement. 

Frame  number. 

Klock  plus  LB. 

Variable  of  an  assigned  "GO  TO"  statement. 

Count  of  number  of  detections  before  merging. 

Integer  variable  corresponding  to  the  floating  variable  A. 
LA  or  some  decremented  value  of  LA. 

Integer  variable  corresponding  to  the  floating  variable  B. 

Either  the  number  of  a  frame  where  a  new  flight  leg  is  to 
be  followed  or  the  maximum  number  of  frames  in  a  given 
run. 

Variable  for  output  data  type  code.  It  takes  the  value  16 
and  indicates  radar  position  output. 

A  fixed  point  variable  for  identification. 
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MAXJLIM 

MT 

MX 


MY 


NDS 


NIL 

NO 

NOL 


NR 


Maximum  number  of  frames  in  a  given  run. 

Variable  for  output  data  type  code.  The  only  value  MT 
assumes  is  18  which  is  the  numerical  type  designation  for 
azimuth  output. 

Variable  for  output  data  type  code.  The  values  and  their 
significance  are  listed  below: 

MX  =11  Target  output 

=  12  T  (I)  in  degrees  and  direction  point  output  for 
off-line  Bendix  display 

=  13  Sector  leading  and  trailing  edge  and  number  of 
targets  in  sector  output 
=  14  Radar  number  and  index  output 
=  17  Azimuth  run  length  and  number  of  targets  in 
sector  output 

=  19  Number  of  radars  making  detections  in  given 
frame 

Variable  for  type  of  target  output.  If  MY  =  6  the  target 
output  is  true  targets.  Since  only  true  targets  are  pro¬ 
duced  by  Section  I,  MY  will  assume  no  other  value  in 
Section  I. 

The  number  of  data  sets  (runs)  plus  one.  For  example, 
suppose  it  is  desired  to  make  runs  4,  5  and  6  at  one  time. 
Then  NDS  =  4.,  If  run  7  only  is  to  be  made,  then  NDS  =  2. 

Nil  -  nothing. 

Number  of  targets. 

A  variable  generated  in  the  detection  routine  and  used  as 
the  starting  index  on  the  STJMJ  and  SUMK  do  loop  within 
the  detection  routine. 

Number  of  radars  in  a  given  run. 
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NRD 


NX 


Number  of  radars  making  detections  in  a  given  frame. 
Variable  of  an  assigned  "go  to"  statement. 


PD  (I)  or  PD(K)  Probability  of  detection  where  I  or  K  is  the  running  index 
on  the  variable. 


tr  to  eight  decimal  places.  _ 

Beamwidth  in  radians. 

Range  function.  The  range  function  is  defined  as  the 
reciprocal  of  the  square  of  the  range  of  target  I  from 
radar  IR. 

Range  function  limit. 

A  random  number  generated  by  routine  RAM  2BF  (0). 

X  coordinate  of  radar  number  I  or  IR  where  I  and  IR  are 
running  indexes  on  the  variable. 

Y  coordinate  of  radar  number  I  or  IR  where  I  and  IR  are 
running  indexes  on  the  variable. 

One  half  of  the  beamwidth,  Q 

Scale  factor.  This  scale  factor  is  used  for  an  off-line 
Bendix  display. 

A  variable  generated  for  use  by  the  off-line  Bendix  display 
facility.  The  variable  is  indexed  by  I. 

Signal  to  noise  ratio.  SNR  is  defined  as  follows: 

SNR  =  AG  (SUMJ) 

SUMK 


SR  (I)  or  SR(K)  Signal  ratio  where  I  or  K  is  the  running  index  on  the 
'  .  variable. 


PI 

Q_ 

RF  (I) 

RFL 

RN 

RX  (I)  or  RX 

(IR) 

RY  (I)  or  RY 
(IR) 

S 

SCALE 


SEN  (I) 


SNR 


.3 
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1 


1 

I 

I 

I 

1 

1 


ST  (L)  or  ST 

jl) 

SUMJ 


SUMK 


T  (I)  or  T  (J) 


TC 

TEMPR 

TEMPT 

TPI 
TRG 
TT  or  T 
TW 
V(I) 

WO) 


Temporary  storage  for  azimuths  which  have  been  detected 
but  not  merged  where  L  or  I  are  the  running  indices. 

The  sum  of  the  range  functions  of  the  targets  within  the 
main  beam  when  looking  at  target  I  as  represented  by 
jittered  azimuth  T  (I). 

The  sum  of  the  range  functions  of  the  k  targets  in  the 
sidelobes  when  the  main  beam  is  looking  at  target  I  as 
represented  by  the  jittered  azimuth  T  (I). 

The  azimuth  of  target  I  from  radar  IR.  The  azimuth  is 
measured  with  the  positive  y  axis  as  reference  and  with 
clockwise  rotation  as  the  positive  sense.  J  is  also  a 
running  index  on  the  variable. 

Temporary  storage  for  C  (I). 

Temporary  storage  for  the  range  function  corresponding 
to  the  azimuth  in  TEMPT. 

Temporary  storage  for  one  azimuth  in  the  azimuth  sorting 
routine. 

2  ir  to  eight  decimal  places. 

Title  for  target  number. 

Title  for  Output  Data  Type  Code. 

Temporary  storage  for  W  (I). 

Target  run  length  or  sector  width,  i.  e.  ,  the  "azimuth 
difference  of  the  trailing  edge  less  the  leading  edge. 

Center  azimuth  of  a  sector  with  the  leading  edge,  ALPHA 
(I),  and  trailing  edge,  BETA  (I).  1  is  the  running  'index  on 

the  variable. 
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I 


t 


'  r 


k 


I 


X  (I)  X  coordinate  of  target  number  I  where  I  is  a  running  index 

on  the  variable. 


Y  (I)  Y  coordinate  of  target  number  I  where  I  is  a  running  index 

on  the  variable. 


1.1.3  FORTRAN  listing 

DIMENSION  X ( 100 ) » Y ( 100 ) »PD( 4 ) *SR ( 4 ) *RX ( 8 ) *RY ( 8 ) *DX ( 100 ) »DY ( 100 ) » 
XSEN( 100) ,CES< 100)  ,T 1100) *K 1 100) .ALPHA! 100) »BETA( 100) *W( 100) * 

XAI ( 100)  ,BI { 100) ,ST< 100) #V(100) *C( 100) *RF< 100) *ET ( 5 ) .S<5) .0(5 ) 
REWIND  4 

READ  600.NDS 

600  FORMAT (15) 

PI=3. 14159265 
TP  I =  6.28318530 
I  FL=0 

N0= 100 
J  =  100 
L IMIT=0 
KLOCK= 1 
DO  137  1=1*8 
RXII ) =0. 

137  RY( I )*0. 

DO  144  1=1.100 

X(I)=0. 

144  Y ( I  )  =0. 

IF  DIVIDE  CHECK  670,670 
670  IF  QUOTIENT  OVERFLOW  138*138 
69  NDS=NDS-1 

IF(NDS)601» 60 1,602 

601  END  FILE  4 
REWIND  4 
PAUSE  209 
PAUSE 
PAUSE1 
PAUSE 
PAUSE  100 

602  READ  650,IM1,IM2,IM3,IM4 

650  FORMAT (414) 

READ  1 » ID, NO, NR, IFL.MAXL IM,SCALE,RFL  ,AG 

1  FORMAT (5I5,F7.2,F10.8»F8.2) 

WRITE  OUTPUT  TAPE  4 ♦ 55 , I D , NO, NR ,MAXL  I M 
55  FORMAT  (4115) 

C  TARGET  INPUTS 

READ  2, (X ( I ) , Y ( I ) , 1*1 *NO) 

2  FORMAT ( 2F7. 2 ) 
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i 

I 

I  C  DETECTOR  LOCUS 

READ  2* (RX(I ) *RY{ I ) *I=1*NR) 

IN  I L=0 

KL0CK=0 
MAR= 16 

DO  1000  I  =  1 *NR*4 

WRITE  OUTPUT  TAPE  4 *26 . (I D *KLOCK ,MAR *NI L *RX (I) *RY ( I ) .RX II  +  1 )  . 
1RY( 1+1 )»RX< 1+2) *RY( 1+2) *RX( 1+3) .RYII+3) ) 

I F ( SENSE  SWITCH  1)93*1000 

93  PUNCH  26»( ID»KLOCK*MAR»NIL*RX( I ) »RY< I ) »RX< l+l ) * 

1RY( 1+1 ) ,RX(I+2) *RY( 1+2) *RX 11+3) *RY( 1+3) ) 

1000  CONTINUE 

C  PROBABILITY  AND  SR  TABLES 

READ  3*  ( PD ( I  )*I=1,4) 

3  FORMAT ( 4F5 • 2 ) 

READ  4 ♦  (  SR ( I ) » I =1 *4 ) 

4  FORMAT ( 4F5 • 0 ) 

C  PROGRAM  CONSTANTS 

DO  3501  =  1 *NR 

350  READ  5 ♦ ( ET (I ) ,S ( I ) *Q ( I ) ) 

5  FORMAT ( 3F6 • 3 ) 

GO  TO  70 
7  I FL= I FL-1 

IF(IFL)  69*69*70 

C  VARIABLE  INPUT 

70  READ  6, (A,B*LIMIT) 

6  FORMAT (2F4*0*I5) 

READ  2*(DX( I ) *DY{ I ) *1=1* NO) 

LA=A 

LB=B 

C  CHECK  MODE  CONTROL 

IF(A)8*12»12 
8  KPLB=KLOCK+LB 

IF(LIMIT-KPLB)151*152*152 
151  8=FLOATF{LIMI T-KLOCK) 

KLOCK=L IM I T 
GO  TO  153 

152  KLOCK=KLOCK+LB 
153  DO  9  1=1, NO 

X{I)=X{I)+B*DXfI) 

9  Y  f I )=Y( I ) +B*CY ( I ) 

L A=A8SF ( A ) 

12  LAP=LA 
65  KLOCK=KLOCK+l 

I FILIM I T-KLOCK) 150. 99, 99 
150  KL0CK=KL0CK-1 
GO  TO  7 

99  ASSIGN  28  TO  JLB 


NRD=0 
I  R=  1 

00  13  1=1. NO 

xt  n=x(  n+oxd) 

13  Y ( I  )  =  Y ( I ) +DY ( I  ) 

C  CALCULATION  OF  RANGE  FUNCTION  AND  AZIMUTH 

14  I RP=  I R 

DO  15  1=1, NO 

RF(  Il  =  l./(  (X(I ) -RX ( IRP) )**2«+(Y( I )-RY( IRP)  )**2.  ) 

IF  DIVIDE  CHECK  23.115 
115  IF (RF( I I-RFLJ624, 835,835 
8  35  T(  I)=ATN1F(  (RXUR)-XU  ))  ♦  (  Y  (  I  )-RY(  IR  )  }  ) 

IFfTUU  21.21,123 
123  T( I )=TPI-T( I  I 
21  RN=RAM2BF(0> 

T {  I  )  =  T(  n+ETURP)*(RN-.5) 

I F  C  T  C I ) -TP  I  118*19,19 

19  T( I )=T( I ) -TP I 
GO  TO  15 

18  IF(T( I)  120,15,15 

20  T( I )=T( I J+TPI 
GO  TO  15 

23  T ( I ) =-l • 

GO  TO  15 
624  T(I)=-2. 

15  CONTINUE 

IF( IM1 1500,501,500 
501  WRITE  OUTPUT  TAPE  6,502 

50?  FORMAT ( 38H1  RUN  CLK  Till  RF(I)  R) 

DO  503  1=1, NO 

503  WRITE  OUTPUT  TAPE  6,  513, I D.KLOC^ , T(I)»RF(I)»IR 
513  FORMAT ( I5,I4,F8«3,F18»8«I3) 

500  GO  TO  JLB, (28,27) 

C  TARGET  OUTPUT 

28  1  =  1 
MY  =  6 
MX=  1  1 
MARG=-3 

DO  25  1=1, NO, 4 
MARG=MARG+4 

IF  (SENSE  SWITCH  1)  1001,25 

1001  PUNCH  62,ID»KLOCK,MX,MY,MARG,X(I ) ,Y( I ) ,X( 1+1 ) »Y( 1+1 ) , 

XX ( 1+2) »Y( 1+2) »X( 1+3) ,Y( 1+3) 

62  FORMAT  ( I  5 , 14 , 1  3 ,2  I  2 , 8F6 . 1 ) 

25  WRITE  OUTPUTTAPE  4 ,26, ( I D,KLOCK,MX,MARG ,X ( I ) , Y ( I) ,X ( I +1 ) ♦ Y ( I +1 ) ♦ 

XX ( 1+2) ,Y( 1+2) »X( 1  +  3) ,Y( 1+3)  ) 

26  FORMAT (  1 5 , 1 4 , 1 3 ♦ 14 , 8F8 . 2 ) 

ASSIGN  27  TO  JLB 
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C  ORDERING  AZIMUTHS  (AND  ASSOCIATED  RANGES) 

27  IC=1 

34  I E= IC+1 

35  IFCTUCI-TUE)  >36*36.39 

36  IE= IE+1 
I F ( I  E-NO >35*35,37 

37  IC=IC+1 
I F ( I C-NO  >34*699*699 

39  TEMPT=T ( IE ) 

TEMPR=RF( IE) 

T ( I E ) =T ( I C ) 

RF { IF)=RF(IC) 

T( IC)=TEMPT 
RF ( I C ) =TEMPR 
GO  TO  36 

699  I F  C IM2)5 04 *505*504 

505  WRITE  OUTPUT  TAPE  6,506 

506  FORMAT (17H  SORTED  AZIMUTHS) 

DO  507  1=1, NO 

507  WRITE  OUTPUT  TAPE  6,513  •  ID*KLOCK*  T  (  I  )  »RF  (  I  )  *  IR 
DETECTION 

504  NOL= 1 
L  =  0 

ASSIGN  660  TO  KTS 

DO  700  1  =  1, NO 
ASSIGN  710  TO  KING 
I F ( T ( I ) >697,698,698 

697  NOL=NOL+l 
GO  TO  799 

698  AHI)  =  T(I)-SURP) 

I F ( A I ( I ) >701,702*702 

701  A  I ( I ) = A I ( I )+TPI 

702  01  ( I )=T(I )+S( IRP) 

IF(BI ( I ) -TP  I >703,704*704 

7C4  B I ( I ) =B I ( I > -TP  I 

703  SUM  J=0 • 

SUM  K=0 • 

I F { B I ( I )-AI (I) >706,706*705 

706  ASSIGN  711  TO  KING 
705  DO  720  J=NOL,NO 
725  GO  TO  KING, (710*711) 

710  I F  C  A I ( I )-TCJ) >707*708*709 

707  I F ( B I ( I ) -T <  J )  >709,708,708 

711  IF(8I ( I )-T(J) >712,708*708 

712  f  F ( A I ( I >-T(J) >708,708*709 

708  SUM  J=SUM  J  +  RF ( J ) 

GO  TO  720 

709  SUM  K=  SUM  K  +  RF(J) 


I  — 


7 


720  CONTINUE 

IF(SUMK)  718.718.759 
718  L=L  +  1 

ST ( L ) =T ( I ) 

GO  TO  799 

759  SNR  =  AG*SUM J/SUMK 

IF  QUOTIENT  OVERFLOW  761.758 

761  SNR=  0. 

758  DO  717  .<=1,4 

I F { SNR-SR ( K ) )  717,716.716 
717  CONTINUE 
GO  TO  799 
716  RN=RAM2BF ( 0 ) 

IF(PDCKI-RN)  799.714.714 

714  L=L+1 

S  T  ( L  )  =  T  (  I  ) 

799  I F ( I M 3 1  700,715.700 

715  GO  TO  KTS. (660.665) 

660  WRITE  OUTPUT  TAPE  6.765 

765  FORMAT  ( 1 1 1H  NOL  TCI)  S  AHI)  Bid  )  SUMJ  SUMK 

X  SNR  SR ( K )  PD(K)  RN  ST(L)  K  L) 

ASSIGN  665  TO  KTS 

665  WRITE  OUTPUT  TAPE6 .767 ♦ ( NOL ♦ T ( I > >S I  I RP ) ♦ A I ( I ) .B I ( I > .SUMJ .SUMK .SNR . 
XSR(K) ,PDCK) ,RN,ST(L) ) *K,L 

767  FORMAT! I  5 .F6.3 ,F5 . 3, 2F6 . 3 ♦ 3F16.6 ,2F7. 2 ,F5 . 3 *F6. 3 .2 1  5 > 

700  CONTINUE 

I F ( L )  300.300,96 

96  DO  97  I =1 »L 

97  TU  )  =ST  (  I  ) 

IF( I M4 >42.762.42 

762  DO  763  1  =  1, L. 4 

763  WRITE  OUTPUT  TAPE  6, 764 . T ( I) »T II  +  1) ♦ T ( I +2 ) » T ( I +3 > 

764  FORMAT (  6H  T(I)=  4F6.3) 

C  MERGING 

42  J=1 
1  =  1 

98  ALPHA ( J ) =T ( I )-S( IRP) 

IG=  I 

ASSIGN  57  TO  NX 
K  (  1  )  =  1 

I F ( ALPHA ( J ) J44.45.45 

44  ALPHA ( J ) = ALPHA ( J ) +TP I 

45  BETA ( J ) =T (I )+Q( IRP) 

I F ( BET  A ( J  )-TP I  )46 .51 ,5  1 

46  IJ=I+1 

I F ( I-L  >48.52.5? 

48  IF(BETA(J)-T( I J) >49.50.50 

49  BETA! J)=T(I 1+S(IRP) 


« 
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56  1=1+1 

ALPHA ( J) =T ( I ) -S ( IRP) 

K ( J ) =K ( J ) +1 
GO  TO  45 

50  K ( J ) =K ( J ) +1 
1  =  1  +  ] 

GO  TO  45 

51  BETA ( J) =8ETA( J )-TP I 
IF(BETA(J)-T( IG ) >249*250*250 

250  GO  TO  NX*  (57*58) 

249  BETA(  J)=TU  )+S{  IRP) 

I F(BETA(J)-TPI) 54*251*251 

251  BETA ( J ) =6ETA( J ) -TPI 
GO  TO  54 

57  ALPHA ( 1 ) =ALPHA ( J ) 

ASSIGN  58  TO  NX 

58  K  ( 1 ) =K ( J ) +K ( 1 ) 

K ( J ) =0 

54  IF C I-L)56, 53*53 

52  BETA(J)=T(I)+S(IRP) 

53  I F( K ( J  J )85,60,85 

60  ALPHA{ J)=0*00 
BETA! J ) =0*00 
J=J-1 

IF(J)300* 300*85 
85  DO  61  I=1*J 

IF  (BETA(  I  ) -ALPHA!  I  )  >.119*120*120 

119  ALPHA( I )=ALPHA(I)-TPI 

120  W ( I ) = ( ALPHA ( I )+BETA(I ) )/2* 

I F( W( I  1 ) 121 *122.122 

121  W( I )=W( I )+TPI 

1 22  SEN ( I ) *  • 2#RX ( I R ) /SCALE+  .4*SINF( W( I ) )+  .4 
CES(  I )  =  * 2*RY ( I R  )  /SCALE+  *4*C0SFIW<m  +  .4 
C ( I )=W( I )*180,/PI 

V ( I ) =BETA ( I ) -ALPHA ( I ) 

I F ( ALPHA ( I ) >43*61*61 
43  ALPHA ( I ) =ALPHA ( I ) +TP I 

61  TONTINUE 

IF( J-2  J255.257.257 

257  fF(W( 1 )-W(2) >255.255.256 
256  IE=J-1 

TW=W ( 1  ) 

Tc=cn ) 

DO  258  1  =  1,  IE 

win  *w  (i+i) 

258  C ( I ) =C ( 1  +  1 ) 

W ( J  )  =TW 


C( J)=TC 
255  MX= 12 

DO  63  1  =  1  ♦  J.»2 

IF  (SENSE  SWITCH  II  63*1002 

63  PUNCH  64*  ID.KLOCK.MX • IR *C (I) *C U I .SEN ( I ) .CES ( I ) . 

XC ( I +1 ) »C (I +1 ) .SEN ( 1+1 ) *CES ( I  +  1  I 

64  FORMAT  (  I  5  .  14 . I  3 ♦ I  2  * F6 . 3 .F7 . 0 » F5 . 3 .2F6 . 3 ♦ F7 . 0 .F5 . 3 ♦ F6 . 3 ) 

1002  MX= 14 

WRITF  OUTPUT  TAPE  < » ' 6 . < I D ♦KLOCK .MX *  I R * J I 
MX=  1  3 
NRD=NRD+1 
DO  66  I =1 .J.4 

66  WRITE  OUTPUT  TAPE  4 . 67 •  ( I D .KLOCK .MX . I R » < { I) ♦ ALPHA ( I ) .BETA ( I  ) ♦ 
XKC 1  +  1  I ,Ai  PHA ( 1  +  1 ) .BET  A ( I +1  I .K (1+2  I .ALPHA ( 1  +  2 ) .BETA ( I +2 ) .K ( 1  +  3! • 
YALPHA ( I + j I ,BETA( 1+3) I 

67  FORMAT  I  I  5 . 1 4* I  3 . I  2 . 1 4 . 2F6 • 3 . 1 4.2F6. 3 ♦ 1 4 ♦ 2F6 • 3 . 1  4 »2F6 . 3 ) 

MX=  1 7 

DO  102  1  =  1. J.4 

102  WRITF  OUTPUT  TAPE  4 ♦ 1 03 ♦ ( ID .KLOCK .MX ♦ I R ♦ J .V t I ) .K ( I) ♦ V ( I +1 ) »K ( H 
X.V( 1+2  I .M 1+2  I .V( 1+3) *K( 1+3) ) 

103  FORMAT ( 1 5 ♦ I  4 *  I  3 » 1 2  *  I  3 *F6.3 » 14 *F6 • 3 . 14. F6* 3 ♦ 1 4 »F6 . 3 ♦ *  4  I 
MT  =  1  8 

DO  106  1  =  1. J.4 

106  WRITE  OUTPUT  TAPE  4.118.  I D .KLOCK .MT ♦ I R ♦ W ( I ) ♦ W ( I + 1 ) . W ( I +2 ) » W 

118  FC *MAT( I5.I4.I3.I2.4F10.3) 

138  DO  100  I  =  1  ♦  J 
V( 1)=0. 

K ( ! ) =u 

W  (  .  ;  =  0  . 

c  m*o. 

SEN ( I  1=0. 

ci-:s(  i  i=o. 

ALPHA ( I ) =0. 

100  BE TA ( I  ) =0 • 

300  DO  123  1=1. NO 

125  T ( I ) =0. 

I F ( L I M I T-KLOCK )  7.68.68 

66  I F ( I R-NR 180.81.81 

80  1 W  =  I R+  1 
GO  TO  14 

81  LAP=LAP-1 

MX=  1 9 

WRITE  OUTPUT  TAPE  4 »  76  ♦  (  ID ♦ KLOCS .MX.IR.NRD) 

76  FORMAT  ( I  5 ♦ 1 4 . 1 3  *  I  2 ♦ I  60 ) 

IF (LAP  18.8.65 
END( O.l.l.O.l) 


1-18 


III-S 


1.  2  SECTION  II-  TRIANGULATION  PROGRAM 


1.  2.  1  Iriput/ Output 

There  are  four  input  cards  prepared  for  Section  II,,  they  are: 

Card  1:  Number  of  data  sets  being  processed. 

Card  2:  IM  switches. 

Card  3:  Radar  identifications. 

Card  4:  Azimuth  limit  angle,  range  of  radars. 

Card  1:  The  number  of  data  sets  is  punched  at  a  fixed  point  variable 
in  the  first  five  columns  of  theccard, 

NODSTS 

1-5 

Card  2:  There  are  seven  IM  switches  considered  "on"  if  a  zero  is 
punched  or  "off"  if  a  non- zero  is  punched  in  their  field. 

The  field  for  each  switch  in  four  columns  designated  as 
follows. 

IM{1)  IM(2)  IM(3)  IM(4)  IM(5)  IM(6)  IM  (7) 

1-4  5-8  9-12  13-16  17-20  21-24  25-28 

The  function  of  each  switch  is  as  follows: 

IM(1):  Range  from  primary  radar  2,  point  check. 

IM(2):  Output  azimuth  limits. 

IM(3):  List  rotated  azimuths  after  sorting. 

IM(4):  Intersection  feasibility  rejection. 

IM(5):  Azimuth  limit  and  range  limit  rejections. 

IM{6):  Not  used. 

IM(7):  Required  azimuth  point  check  and  no  sector  overlap 
rejection. 

Refer  to  output  for  detail  definitions. 

Card  3:  There  is  provision  for  up  to  five  radars  in  a  single  run. 

The  first  two  are  designated  as  the  base  radars  and  the 
remaining  three  as  the  secondary  radars.  The  field  for 
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each  radar  identification  is  four  columns  designated  as 
follows: 

BT  B2  SI  S2  S3 

1-4  5-8  9-12  13-16  17-20 

The  radars  are  numbered  in  order  in  Section  I  from  1 
through  5.  These  identification  numbers  are  punched  in 
the  fields  of  Card  2.  Any  two  radars  may  be  designated 
as  the  base  radars  and  any  or  all  of  the  remaining  radars 
may  be  secondary.  The  ID  is  punched  as  a  single  digit 
fixed  point  variable. 

Card  4:  The  azimuth  limit  angle,  is  designated  as  a  floating 
point  number  in  the  first  seven  columns  of  the  card  in  the 
form  xxx.  xxx.  The  angle  is  in  radians.  The  range  limit, 
RANGLT,  and  twice  the  range  limit,  TRANGL,  are 
designated  in  Columns  8-15,  and  16-23,  respectively. 

R  RANGLT  TRANGL 

1-7  8-15  16-23 

The  range  limits  are  designated  in  miles  in  the  form  xxxxx.xx. 

There  are  three  types  of  output  from  Section  II;  apparent  targets, 
display  data,  and  intermediate  check  data. 

Apparent  targets  are  outputted  on  tape  unit  3  in  the  form  of  x  and  y 
coordinates.  Along  with  the  coordinates  a  listing  is  presented  giving  the 
strobes  from  each  radar  which  yield  an  apparent  target.  The  x  and  y  co¬ 
ordinates  are  given  in  miles  from  the  origin.  The  azimuths  are  given  in 
radians. 

Display  data  are  outputted  on  punched  cards  under  the  control  of 
sense  switch  1.  If  the  switch  is  down  the  coordinates  of  the  apparent  tar¬ 
get  positions  are  punched,  four  to  a  card.  These  cards  are  then  processed 
for  use  in  the  display  equipment. 

intermediate  data  are  outputted  on  tape  unit  6  under  the  control  of 
the  IM  "  switches. "  (See  input  data)  This  output  is  used  specifically  for 
test  purposes  and  describes  the  several  types  of  rejections.  With  this 
data  all  the  strobes  from  each  of  the  radars  can  be  accounted  for  and  hand- 
checked  to  assure  the  program  is  functioning  properly. 
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1.2.2  Glossary  . 


A  The  lower  limit  of  a  jammed  sector  calculated  in  Section  I. 

B  The  upper  limit  of  a  jammed  sector  calculated  in  Section  I. 

CG  Temporary  storage  locations  for  the  azimuth  of  an  apparent 

target  to  the  radar  before  output. 

_I  General  indexing  constant. 

IALRLK  A  sum  of  the  number  of  azimuth  limit  rejections  per  frame. 

The  last  two  letters  indicate  tho  radars  whose  limits  are 
being  tested. 

IC  An  index  used  in  sorting  rotated  azimuths. 

ICBM  An  assigned  GO  TO  constant  for  selecting  Right  or  Left 
Plane  computation. 

ICONL  Number  of  radar  combinations  attempting  triangulation. 

ID  Run  Numbe  r . 

IE  An  index  used  in  sorting  rotated  azimuths. 

IFC  Count  of  the  number  of  combinations  of  the  strobes  from 

the  primary  radars  for  which  there  is  no  intersection 
feasible. 


IM1  to 
IM7 


An  index  used  to  keep  track  of  the  secondary  radars  used 
in  Triangulation  attempts. 

Intermediate  output  printed  as  specified  by  input  card. 
See  input-output  for  details. 


A  count  of  the  number  of  apparent  targets  found  in  a  given 
frame. 


Radar  identification  number. 
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Temporary  input  storage  for  the  number  of  sectors  detected 
from  a  given  radar. 


J_  Identification  number  of  a  radar. 

JD  A  temporary  storage  location  for  the  radar  identification 

number  prior  to  a  rejection  output. 

JF  A  temproary  storage  location  for  the  radar  identification 

number  prior  to  a  rejection  output. 

JJ  An  index  for  J  radar  strobes. 

JJS  Temporary  output  storage  location  for  the  identification 

number  of  the  azimuth  from  radar  J  involved  in  a  triangu¬ 
lation. 

JOHNST  An  assigned  GO  TO  Constant  used  as  a  conditional  continue 
switch  on  intersection  feasibility  rejection. 

JR  Identification  number  of  one  of  the  prime  radars. 

JS  Temporary  output  storage  location  for  identifying  a  radar 

involved  in  a  triangulation. 

K  Identification  Number  of  a  radar. 

KK  An  index  identifying  a  strobe  from  the  Kth  radar. 

KKS  Temporary  output  storage  location  for  the  identification 

number  of  the  azimuth  from  radar  K  involved  in  a  triangu¬ 
lation. 

KLM  A  test  constant  used  to  indicate  Right  or  Left  Plane  calcu¬ 
lation. 

KLOCK  Frame  number. 

KM  A  dump  storage  for  unused  data  taped  in  Section  I. 

KN  A  dump  storage  for  unused  data  taped  in  Section  I. 
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KO  A  dump  storage  for  unused  data  taped  in  Section  I. 

KR  Identification  number  of  one  of  the  prime  radars. 

KR J  A  count  of  the  number  of  range  limit  rejections  from  radar  J. 

KRK  A  count  of  the  number  of  range  limit  rejections  from  radar  K 

KRL  A  count  of  the  number  of  range  limit  rejections  from  radar  L 

KRQ  A  switching  constant  used  to  determine  whether  both  the  j 

and  K  azimuths  have  been  rotated,  sorted  and  outputted. 

KSLBD  An  assigned  GO  TO  Constant  used  to  indicate  the  end  of  a 
frame. 

KV  Temporary  output  storage  location  for  identifying  a  radar 

involved  in  a  triangulation. 

L  Identification  number  of  a  radar. 

LKLP  An  identification  number  indicating  the  last  K  azimuth  in 
the  left  plane. 

LKRP  An  identification  number  indicating  the  last  K  azimuth  in 
the  right  plane. 

L.KSRP  An  index  representing  the  identification  number  of  the  last 
strobe  from  radar  KR  in  the  right  plane. 

LL.  An  index  for  L  radar  strobes. 

LLS  Temporary  output  storage  location  for  the  identification 

number  of  the  azimuth  from  Radar  L  involved  in  a  triangu¬ 
lation. 

LR  Identification  numbers  of  secondary  radars. 

LS  Temporary  output  storage  location  for  identifying  a  radar 

involved  in  a  triangulation. 
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LSK  An  index  which  keeps  track  of  the  first  strobe  in  the  left 

plane . 

LT  An  assigned  GO  TO  Constant  used  to  indicate  that  all  sec¬ 

ondary  radars  have  been  tested. 

M  A  temporary  index  used  in  calculating  azimuth  limits. 

MA  A  temporary  output  constant. 

MAR  A  temporary  output  index. 

MARG  A  temporary  output  index. 

MAXLIM  The  maximum  number  of  frames  in  the  run.  Inputted  on 
tape  4  from  Section  I. 

MD  A  temporary  output  index. 

ME  A  temporary  output  index. 

MNP  An  assignedGO  TO  constant  used  to  indicate  return  point 
after  a  rejection  output. 

MNP  An  assignedGO  TO  constant  used  to  indicate  type  of  rejec 
tion  output. 

MO  A  temporary  output  index. 

MOP  An  assignedGO  TO  constant  used  to  indicate  type  of  rejec 
tion  output. 

MX  A  temporary  output  constant. 

MY  A  temporary  output  constant. 

MZ  A  dump  storage  for  unused  data  taped  in  Section  I. 

N  A  temporary  index  used  in  calculating  azimuth  limits. 


NA,  NB,  An  input  constant  indicating  the  number  of  apparent  tar- 

NC,  ND  gets  in  a  strobe  sector. 

ML  An  input  constant  indicating  the  identification  number  of 

the  target  positions. 

NJ  The  number  of  strobes  calculated  by  a  given  radar. 

NO  An  input  constant  indicating  the  number  of  targets. 

NODSTS  Input  data  designating  the  number  of  cases  being  calculated. 

NOR  Number  of  radars  in  the  run. 

NR  An  input  constant  indicating  the  number  of  radars. 

NSL  A  temporary  counter  which  keeps  track  of  the  number  of 

strobes  from  a  secondary  radar  which  have  been  tested. 

NSTR  An  output  index  which  keeps  track  of  the  strobe  number 
being  operated  with  after  a  range  rejection  has  been 
encountered. 

PI  The  mathematical  constant  it. 

QA  The  width  of  a  jammed  sector  in  radians.  Calculated  in 

Section  I. 

QLIM  Left  limit  of  radars  detecting  sector. 

R_  The  geometric  cutoff  angle  of  the  base  radars. 

RA  The  azimuth  of  one  radar  from  another.  For  the  base 

radars  this  is  also  the  angle  of  rotation. 

RANGLT  An  input  constant  representing  the  range  of  a  radar. 

RF  Temporary  data;  the  distance  of  an  intersection  from,  a 

base  radar. 

RLIM  Right  limit  of  a  radar's  detecting  sector. 


RLP  Temporary  data;  the  distance  of  an  intersection  from  a 

secondary  radar. 

RQDA  Temporary  data;  the  azimuth  of  an  intersection  from  a 
secondary  radar. 

RQ-^IM  Rotated  left  limit  of  a  radars  detecting  sector. 

RRLIM  Rotated  right  limit  of  a  radars  detecting  sector. 

RSV  A  temporary  storage  of  RL.P  after  a  secondary  radar 

range  rejection. 

RT  Rotated  bisectors  of  the  jammed  sectors  calculated  in 

Section  I. 

RTJ,  RTK  Rotated  azimuths  of  the  primary  radars. 

RX  The  x  coordinate  of  a  radar  position. 

RY  The  y  coordinate  of  a  radar  position. 

STAFJ  The  azimuth  from  the  J  radar  involved  in  a  triangulation. 

STAFK  The  azimuth  from  the  K  radar  involved  in  a  triangulation 

STAFL  The  azimuth  from  the  L>  radar  involved  in  a  triangulation 

T_  Bisectors  of  the  jammed  sectors  calculated  in  Section  I. 

TS1,  TeZ,  Temporary  rejection  output  constants  indicating  RQDA, 
TE3  and  right  and  left  azimuth  limits. 

TEMP  Temporary  storage  of  rotated  azimuth  during  sorting 
procedure . 

TPI  The  mathematical  value  2ir. 

TRANGL  Input  data  equal  to  twice  the  range  limit. 

X  The  x  coordinate  of  a  true  target. 
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XA  The  x  coordinate  of  an  apparent  target. 

XP  The  x  coordinate  of  an  intersection  point. 

XPT  X  coordinate  of  the  midpoinc  of  the  line  joining  the  two  base 

radars. 

X  The  Y  coordinate  of  a  true  target. 

YA  The  Y  coordinate  of  an  apparent  target. 

YP  Y  coordinate  of  an  intersection  point. 

YPT  Y  coordinate  of  the  midpoint  of  the  line  joining  the  two 

radars. 


1.  2.  3  FORTRAN  Listing 

DIMENSION  RX<8)  ,RY(8)  » X ( 100 ) ♦ Y ( 1 00 >  » A ( 5 ♦ 1 00 > »B < 5 ♦ 1 uO )  »NJ(6)  * 

XLLS  (  2  5  )  *NSLC(25)»$TAFJ(25)  »STAFK ( 25 )  » JS ( 25 )  »STAFL(25)  *  jJS  ( 26 )  * 

XKV (25  )  ( 25 ) * LS ( 25 ) *CG < 25 1 »RT < 5 ♦ 100 ) *XA < 25 ) ♦ YA ( 2 5 ) *QA ( 1 00 ) ♦ 

XRA(5*5)*OLIM(5»5)*RLIM(5»5> *RQL IM(5*5) »RRLIM(5*5) »N0R (5)*T(5»100)t 
XLR ( 5 ) 

DISF(C*D*F  *F  )  =SQRTF  (  (  C-D )  **2+  (  F.-F  )  **2  ) 

RJPF ( C  *D*F »F »P*G)  =  (DISF (CtD*E*F )*SINf  (0) )/(SiNF(P-G) ) 
RKPF(C*D»E»F»P»G)  =  (DISF ( C » D »F » F ) *S 1  Nr ( P ) )/(SlNF(P~G) ) 

PI=3. 14159265 
TPI=6. 28318530 
REWIND  3 
REWIND  4 

READ  1107  *N0DSTS 

1107  FORMAT (  15) 

456  IF(NODSTS)  1108*  1108.1109 

1108  WRITE  OUTPUT  TAPE  3*1023 
K  =  0 

A  =  0 

WRITE  OUTPUT  TAPE  3 ,493 ♦ K , K .K ♦ A  * A ♦ A , A f A »A , A . A 

REWIND  4 

END  FILE  3 

REWIND  3 

PAUSE  209 

PAUSE 

PAUSE  1 

PAUSE 

PAUSE  100 
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1109  N0DSTS*N0DSTS-1 

READ  446rIMl»IM2»IM3»IM4.IM5*IM6*IM7 

446  FORMAT ( 714 ) 

READ  446* JR.KR.LR  ( 1 )  *LR ( 2 >  *LR ( 3 ) *LR< 4 ) *LR( 5 > 

READ  490.R.RANGLT  .TRANGL 

490  FORMAT (F7#4»2F8«2) 

READ  INPUT  TAPE  4.491* I D .NO.NR *MAXL IM 

491  FORMAT  (4115) 

DO  492  I ® 1 *NR  *4 

492  READ  INPUT  TAPE  4 *493 » I D *KLOCK »MA *NI L *RX ( I ) *RY ( I ) *RX ( I +  1 ) *RY ( I +1 ) . 
XRX( 1+2 ) *RY( 1+2 ) *RX( 1+3) *RY( 1+3) 

493  FORMAT ( I5,I4*I3»I4*8F6#2) 

C  CALCULATE  RA  AND  SECTOR  LIMITS 
M  *  KR 
N  *  JR 

lF(DISF(RX(JRS.RX(<R)*RY(JR).RYnCR))  -  TRANGL )  673*672*67.. 

673  XPT  =  .5*{RXIJR)  +  RX(KR)) 

YPT  «  .5*(RY(JR)  +  RY(KR)) 

668  RA(M.N)  *  ATN1F( (RX(M)-RX(N) )•  (RY(N)-RY(M) ) ) 

IF  (RA (M,N ) )  190,199.190 
190  RA(M*N )  *  TPI  -  RA (M*N ) 

199  RA(N*M)  =  RA(M,N)  +  P! 

IF  (RA ( N *M )  -  TPI)  194*195.195 
195  RA(N*M)  «  RA ( N *M )  -  TPI 
194  OLIM(M.N)  *  RA (M,N )  -  R 
IF(QLIM(M*N) )  477,476*478 

477  OLIM  ( M,N )  *  QLIM(M*N)  +  TPI 

478  RUM  ( M*N )  =  RA(M,N)  ♦  R 

IF  (RLIM(M,N)  -  TPI)  479,480*480 
480  RLIM(M.N)  «  RLIM(M,fl)  -  TPI 

479  IF  (RX(N)  -  RX (M) )  305.^04,11 
11  RA(M.N)  *  -  RA(M.N) 

GO  TO  304 

305  RA(M,N )  =  TPI  -  RA(M*N) 

304  QLIM(N.M)  *  QLIM(M.N)  +  Pi 

IF  (OLIM(N,M)  -  TPI)  177*178,178 

178  QLIM(N*M)  *  OLIM(N.M)  -  TPI 
177  RLIM(N*M)  »  RLIM(M.N)  +  PI 

IF(RLIM(N*M)  -  TPI)  179*180,180 
180  RLIM(N,M)  »  RLIM(N*M)  -  TPI 

179  RQLIM(M*N)  «  OLIM(M,N)  +  RA ( KR* JR ) 

IF  ( RQL!M(M,N) )  170,172*171 

170  RQLIM(M,N)  *  ROLIM(M.N)  +  TPI 

171  IF  (ROLIM(M.N)  -TPI)  172*173,173 
173  RQLIMiM.N)  «  ROL IM (M*N )  -  TPI 

172  RRLIM(M.N)  «  RLIM(M*N )  +  RA(KR.JR) 

IF  (RRLIM(M.N))  156*158,157 

156  RRLIM(M.N)  «  RRLIM(M.N)  +  TPI 

157  IF  ( RRL IM (M*N )  -  TPI)  158*159*159 
159  RRLIM(M.N)  *  RRLIM(M*N1  -  TPI 
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156  I F ( M  -  L)  154.162.154 

154  ROLIM(N.M)  =  RQLIM(M.N)  +  PI 

IF(ROLIM(N.M)  -  TP! 1160.161.161 

161  RGLIM(N.M)  =  RQLIMIN.M)  -  TPI 
160  RRLIM(N.M)  *  RRLIM(M.N)  +  PI 

IF  ( RRLIM(N.M)  -  TPI 1  162.174.174 
174  RRLIMIN.M)  *  RRLIMIN.M)  -  TPI 

162  I F ( I  M2  1  489.205.499 

205  WRITF  OUTPUT  TAPE  6*206. N. M. RAIN.M) .QLIM(N.M) .RLIM(N.M) .ROLIM(N.M) 
X.RRLIMIN.M) 

WRITE  OUTPUT  TAPE  6*206. M.N. RA(M. NJ .QLIM(M.N) .RLIM(M.N) .RQLIM(M.N) 
X.RRLIM(M.N) 

206  FORMAT  (2I3.5F8.2) 

C  CLEARING 

672  CONTINUE 
489  DO  487  1=1.5 
NJ( 11=0 
48  7  NOR  I  I  1=0 

DO  300  12=1.5 
DO  300  1=  1.100 
RTC IZ.I 1*0. 

300  T ( 12 . I >  =  0. 

I CONL=0 
KLM  =  0 

C  READ  ENVIRONMENT  DATA 

DO  494  1=1 .NO. 4 

494  READ  INPUT  TAPE  4.493 . ID.KLOCK.MA.NI L.X ( I ) .Y ( I ) .X II+l ) *> ( 1+1 ) . 

XX ( 1+2) .YII+2) *X(I+3)»Y( 1+3) 

488  READ  INPUT  TAPE  4.495. ID.KLOCK.MX* IR, IX 

495  FORMAT  (  1 5 . 1 4. 1 3. 12. 160 ) 

IF (MX- 14 1496. 496*497 

497  IFUX-3)  455.505.505 

455  I F ( MAXLI M-KLOCK 1456.456.489 

496  DO  498  1  =  1. IX. 4 

498  READ  I NPUTTAPE4.499. I D.KO.MZ * IR .NA .A ( I R . I  1 .B ( IR *  I  1  *NB.A ( IR .  I +1 1  ♦ 
XB( IR. 1+1 1 »NC.A< IR. 1+2) »B( IR.I+2 ) .ND.AI IR.I+31.BC IR.I+3) 

499  FORMAT (I  5. 14. 1  3 . ! 2 . 14. 2F6.3 *  1 4 . 2F6. 3 . 1 4.2F6.3 *  1 4.2F6.3 1 
NOR ( I R 1 = I R 

NJ ( I R ) =  IX 
DO  502  1  =  1. IX. 4 

502  READ  INPUT  TAPE  4. 500 . ID.XO *MZ . I R. I X *0A ( I  1 .NA«OA ( I +  1 1 .NB.OA ( 1+2 1 . 
XNC.QAI 1+3) .NO 

500  FORMAT (I5.I4*I3.I2.I3*F6»3.I4.F6.3.J4.F6«3»I4*F6*3.I4) 

DO  503  1  =  1. IX. 4 

503  READ  INPUT  TAPE  4 .501 . ID.KM.KN.MZ *T ( IR* I  1 .T ( IR. I +  1 ) ,T ( I R. I +2 1 . 

XT( IR.I+31 

501  F0RMATd5.I4.I3, 12. 4F10. 31 
GO  TO  488 

C  RADAR  SELECTION 
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505  J  =  JR 
K  =  KR 

ASSIGN  678  TO  JOHNST 
LKRP  =  NJ  ( K  ) 

LKLP  =  NJ  ( K  ) 

JJ  =  1 
KK  =  1 

IF  ( NOR ( J )  )  400*489*400 

400  IF  (NORIK))  401*489*401 

401  I L= 1 

404  L  =  LR ( I L  ) 

IF  (L)  402*403*402 

402  IF  ( NOR ( L ) )  674*403*674 

403  IL  =  IL  +  1 

IF  (IL  -  NR  +  2)  404*404*489 
674  KR  J  =  0 
KRK  =  0 
KRL  =  0 
I ALR JK=0 
I ALR JL=0 
IALRKJ=0 

ialrkl=o 

I ALRL J=0 

I alrlk*o 

I  FC=0 

ICONL= ICONL+1 
KN I T=0 
LL  =  1 
IP=0 

C  ROTATING  ANGLES  FOR  J  +  K 

31  KRQ--1 
MD  =  J 

ME  =  N J ( J  ) 

32  00  33  IT  =  1 »ME 

RT ( MD » I T )  =  T (MD* I T )  +  RA(K,J) 
I F ( RT ( MD* I T ) -T° I )  34*35,35 
45  RT (MD, IT ) =  RT (MD* I T ) -TPI 
34  I F ( R T ( MD , I T ) )  36*33*33 

36  RT ( MD » I T )  =  RT ( MD  ♦  I T  I  +  TPI 

33  CONTINUE 
IF(KRO)37, 38*38 

37  KRQ= 1 
MD=  K 

ME  =  N J ( K ) 

GO  TO  32 

C  SORTING  RT ( J, JJ )  +  RT( K*KK ) 

38  KRQ=- 1 
MD=  J 

39  I C= 1 

I F ( NJ ( MD ) -1 (45*45*40 

40  I E* IC+1 
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41  I F { RT I MD ♦ IC ) -RT (MD ♦ I E ) )  42.42.43 

42  I E* I E  +  l 

I F  C I E-NJ  C  MD I )  41*41.44 

43  TEMP=  RT(MO.IE) 

RT (MD* IE ) *  RT(MD.IC) 

RT  { MD  ♦  I C  )  =.  TEMP 
GO  TO  42 

44  IC* IC+1 

IF( IC-NJ(MD) )  40.45.45 

45  I F ( KRO ) 46 .47.47 

46  KRQ=1 
MD=K 

GO  TO  39 

C  INTERMEDIATE  FOR  SORTED  ROTATED  A2IMUTHS 

47  I F ( I  M3  )  52.553.52 
553  KRQ=-1 

ME=NJ( J) 

MD  =J 

WRITE  OUTPUT  TAPE  6.801.KLOCK 
801  FORMAT  (17H  KLOCK  *  I5> 

51  DO  48  MO= 1 .ME ♦ 4 

48  WRITE  OUTPUT  TAPE  6 .49 «MD*ME *RT (MD.MO ) .RT (MD.MO+1 ) »RT ( MD.MO+2 ) » 
XRT ( MD.MO+3 ) 

49  FORMAT  ( 15H  J»  U.RT < J.JJ ) *  2I4.4F8.2) 

I F ( KRQ ) 50  *  52  »  52 

50  KRO= 1 
MD=K 

ME  =  NJ(K) 

GO  TO  51 

C  CHECK  RIGHT  PLANE  J  AND  K  AZIMUTHS  AGAINST  ROTATED  ,JK  AND  KJ 

C  AZIMUTH  LIMITS 

52  ASSIGN  405  TO  LT 

IF  ( RT (J.JJ)  -  ROLIMI J.K)  )  53.54.54 
53  KLM  =  -1 

56  IF  (RT(K.K.K)  -  RRL IM  {  K  »  J ))  57.58.58 

57  RP  =  RRL I M  (K.J) 

IALRKJ=IALRKJ+1 

ASSIGN  59  TO  MNP 
60  ASSIGN  56  TO  ICBM 
JD  =  K 
NSTR=  KK 

ASSIGN  135  TO  MNO 
ASSIGN  1S1  TO  MOP 
GO  TO  82 

58  IF(RT(K*KK)  -  RQLIMI J.K ))  64.65.65 
65  LKRP=  KK-1 

; ALRJK*  I ALRJK+1 
LKSR!'  KK-1 
RF  =  kOLIM  (J.K) 

ASSIGN  321  TO  MNP 
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GO  TO  60 

C  INCREMENT  STROBE  NUM8ERS  -  RIGHT  PLANE 

59  KK^KK+l 

IF(KK-LKRP)  320*320*321 

320  GO  TO  I  CBM* (56,58 ) 

321  JJ*JJ+1 

ASSIGN  678  TO  JOHNST 
1 F ( JJ  -NJ ( J ) )  322.322,722 

322  KK*1 

CO  TC  52 

C  CHECK  LEFT  PLANE  J  AND  K  AZIMUTHS  AGAINST  ROTATED  JK  AND  KJ 

C  AZIMUTH  LIMITS 

54  I F ( KLM !  370,371,371 

370  KK=LKRP+1 
GO  TO  372 

371  KK« 1 

372  KLM=1 

ASSIGN  676  TO  JOHNST 
LSK*KK 

329  IF  CRT  ( J*  JJ)  -  RRUMCJfK))  349,349*328 
328  IF  CRTCK.KK)  -  RRLIMC  J»K )  )  348,348,333 

349  ASSIGN  350  TO  MNP 
I ALRJK= IALRJK+1 
JD  *  J 

NSTR  =  JJ 

RF  *  RRLIMCJ.K) 

GO  TO  347 

333  IF  CRTCK.KK)  -  ROLIMCK.J))  382,335,335 

335  ASSIGN  350  TO  MNP 
IALRJK*IAlRJK^1 
RF  =  RQuIMC  J,K ) 

GO  TO  346 

348  ASSIGN  330  TO  MNP 
I ALRK J- I ALRK J+l 
RF  =  RRLI M (  J » K  ) 

346  JD  a  K 
NSTR  *  KK 

347  ASSIGN  135  TO  MNO 
ASSIGN  131  TO  MOP 
GO  TO  82 

C  INCREMENT  STROBE  NUMBERS  -  LEFT  PLANE 

350  JJ»JJ+1 

IFCJJ  -NJfJ))  380,380,722 
?80  KK*LSK 

GO  TO  329 

330  KK=KK+ 1 

IF(KK-LKLP)  328,328,350 
722  ASSIGN  489  TO  KSLBD 
GO  TO  63 

C  CHECK  INTERSECTION  FEASIBILITY 


1-32 


m-s 


C  LEFT  PLANE 

382  RTJ=RT(K,KK) 

RTK=RT I J ♦ J J ) 

GO  TO  325 
C  RIGHT  PLANE 

64  RTJ=  RT ( J ♦ JJ ) 

RTK  =  RTIK.KK) 

325  IF(RTJ-RTK) 1001 ,1001 ,1000 
1001  IFC  =  IFC  +  1 

I F { I M4)326, 950,326 

950  WRITE  OUTPUT  TAPE  6 , 10 1 3 , J , JJ , ( RT ( J , JJ ) ) ,K,KK , ( RT ( K ,KK )) 

1013  FORMAT  (30H  NO  INTERSECTION  FEASIBILITY  2  1 4 »F5 .2 ,2  14  ,  F5. 2  ) 

IF  ( KLM )  326,326,330 

326  ASSIGN  58  TO  ICBM 
GO  TO  321 

C  CHECK  RANGE  FROM  J 

1000  RF=RJPF(RX(J) »RX(K) »RY (J) »RY ( K ) ,RT ( J , JJ )  ,RT (K,KK)  ) 

IF(RF-RANGLT) 76,76,77 

77  JD= J 

KR J=KR J+l 
NSTR  =JJ 

331  IF(KLM)  78,78,79 

78  ASSIGN  321  TO  MNP 
681  ASSIGN  131  TO  MOP 

332  ASSIGN  130  TO  MNO 
GO  TO  82 

79  ASSIGN  130  TO  MNO 
ASSIGN  131  TO  MOP 

334  ASSIGN  330  TO  MNP 

C  INTERMEDIATE  OUTPUT  FOR  AZIMUTH  LIMIT  AND  RANGE  REJECTIONS 

82  I F ( I M5  )  128,559,128 
559  GO  TO  MNO,  (  130,135 ) 

130  WRITE  OUTPUT  TAPE  6»1003»JD 

1003  FORMAT  (31H  RANGE  LIMIT  REJECTION  ON  RADAR  12) 

GO  TO  129 

135  WRITE  OUTPUT  TAPE  6,  1004,  JDvNSTR 

1004  FORMAT ( 45H  SECTOR  LIMIT  REJECTION  ON  RADAR  AND  STROBE  =  2 1 4 ) 
129  GO  TO  MOP, ( 131,132,136,137) 

131  WRITE  OUTPUT  TAPE  6, 1005, JD, NSTR, RT(JD, NSTR), RF 

1005  FORMAT ( 33H  RADAR , STROBE , ROTATED  AZIMUTH, RF=  2  14  ,  F6 . 2  ,  F 16. 2 ) 

GO  TO  128 

132  WRITE  OUTPUT  TAPE  6 , 1006  ,  JD  ,RLP 

1006  FORMAT ( 18H  RADAR  L  »RF  OF  L  =  I4,F8.2> 

GO  TO  128 

136  WRITE  OUTPUT  TAPE  6 , 1007  , JD »NSTR , JF ♦ TE 1 , TE2 , TE3 

1007  FORMAT (48H  R 1 .STB »R2 »RT ( R 1 ,STB I *RGL I M ( R 1 , R2 ) , RRL IM ( R 1 ,R2 ) =3  1 4 , 
X3F8.2  ) 

GO  TO  128 

137  WRITE  OUTPUT  TAPE  6 , 1008 , JD ,NSTR , TE 1 , TE2 , TE3 

1008  FORMAT ( 36H  R 1 »R2 »RQDA ,QL IM ( R 1 ,R2 ) , RL IM ( Rl  ,R2 > =2  1 4, 3F8 .2 ) 
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128  GO  TO  LT  *  ( 405  *407 ) 

407  IL  =  IL  +  1 

IF  ( IL  -  NR  +  2 )  406*406  *405 

405  ASSIGN  405  TO  LT 
I  L  =  1 

GO  TO  MNP* (59*321*330.350) 

C  CHECK  RANGE  FROM  K 

76  RF=RKPF(RX( J) *RX ( K ) ,RY ( J ) *RY ( K ) *RT ( J , JJ ) « RT ( K *KK > ) 

IF(IMl)  299*298*299 

298  WRITE  OUTPUT  TAPE  6 . 297 » J » JJ« ( RT < J • J J ) ) *K *KK • ( RT ( K *KK ) ) *RF 

297  FORMAT (33H  J » J J*RT < J* J J ) *K #KK *RT ( K *KK ) ,RF»2 1 3 *F6* 3 • 2 1 3 »F6. 3 *F9. 2 ) 

299  I F ( RF-RANGLT (83*83*84 
84  JD*K 

KRK=KRK+1 

NSTR*KK 

GO  TO  JOHNST * (678*331 ) 

678  IF(DISF(RX(J)*RX(K) »RY(J)*RY(K) I-RANGLT )  331*331*677 
677  IF(KLM)  680.680,695 
680  ASSIGN  59  TO  MNP 
ASSIGN  58  TO  IC8M 
GO  TO  681 

695  ASSIGN  350  TO  MNP 

ASSIGN  131  TO  MOP 

ASSIGN  130  TO  MNO 

GO  TO  82 

C  CALCULATE  COORDINATES  OF  INTERSECTION  POINTS 
83  XP  =  RX ( K  )  +RF*  S I NF ( RT ( K »KK )  -  RA(K*J?) 

YP  =  RY ( K )  +RF*  COSF ( RT ( K  *KK )  -  RA ( K  * J  )  ) 

I F ( KLM  >  688*688,692 
688  ASSIGN  331  TO  JOHNST 
GO  TO  693 

692  ASSIGN  678  TO  JOHNST 

693  KNIT  «  KNIT+1 

406  ASSIGN  407  TO  LT 

C  CHECK  RANGE  FROM  L 

L  «  LR(IL) 

IF  (L)  408,352,408 

408  RLP=DISF(XP,RX(L)  .YP.RYILM 
IFfRLP-  RANGLT )  88,88,87 

87  JD*L 

KRL=KRL+1 

RSV=RLP 

I F ( KLM )  337*337,338 

337  ASSIGN  132  TO  MOP 
ASSIGN  130  TO  MNO 
ASSIGN  321  TO  MNP 
GO  TO  82 

338  ASSIGN  130  TO  MNO 

'  ASSIGN  132  TO  MOP 

GO  TO  334 

C  CALCULATE  RODA 
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88  RQDA=ATN1F( ( R X ( L ) -XP ) » ( YP-RY ( L ) ) > 

NSL  =  1 

IF(RQDA)  192* 193*192 

192  RODA=  TP  I  -  RQDA 

193  I F { IM7J100* 840*100 

840  WRITE:  OUTPUT  TAPE  6*  1009  *XP*YP*RODA 

1009  FORMAT ( 12H  XP*YP,RQDA=  3F8.2) 

CHECK  SECTOR  OVERLAP 

100  IF (A(L*LL)-8(L*LL) >101*101 *102 

101  IF  ( 6 ( L  »LL )  -  RODA  >103*118*104 

103  LL=LL+ 1 
NSL=NSL+1 

I F ( LL-N J ( L ) >100,100*1060 
1060  NSL=NSL-1 

106  I F ( IM7  >352*1  111 ,352 

1111  WRITE  OUTPUT  TAPE  6 , 10 1 0 ,L *LL * A ( L ,LL > » B ( L *LL ) *RODA 

1010  FORMAT ( 22H  L ,LL  ,  ALPHA *BETA , RQDA=  2I4,3F8.2) 

352  LL= 1 

IL  =  IL  +  1 

IF  ( IL  -  NR  +  2)  406*406,61 
61  IF(KLM)  354,354,330 
354  ASSIGN  58  TO  ICBM 
I  L=  1 
LL=  1 

GO  TO  59 

104  I F ( A ( L  *LL )  -  RODA)  118.118*106 

102  IF  ( A ( L  ,LL )  -  RODA)  118,118*10? 

107  IF  { B ( L *LL )  -  RODA)  103*118*118 

DATA  STORAGF  FOR  SUCCESSFUL  TR I ANGULAT I  ON 
118  IP=IP+1 
XA ( I P ) =XP 
Y  A ( IP) = YP 
NSLC ( IP)=  NSL 
JS( 1 P ) =  J 
JJS( I P i = JJ 
KV( IP ) =  K 
KKS ( IP  >=KK 
LS ( IP ) =  L 
LLS ( I P ) =LL 
STAF J ( I P } =  T ( J , J J ) 

S T A F K ( I P  >  =T ( K , KK  > 

STAFL ( IP  >  =T (L  *LL  ) 

CG ( I P ) =  RODA 
ASSIGN  405  TO  LT 
I F ( IP-  25)  61*720,720 
720  ASSIGN  725  TO  KSLBD 
DATA  OUTPUT 

63  WRITE  OUTPUT  TAPE  3,1027 

1027  FORMAT (79H1  RUN  CLK  TT  NAT  RFJ  RFK  RFL  NIF  ALRJK 
6  KL  LJ  LK  ATP  CON) 


MY  =  23 

WRITE  OUTPUT  TAPE  3  ♦  1012  *  I D  *  (CLOCK  ♦  MX  ,  I P .KRJ.KRK  »KKl  .IFC.IALRJK.IAL 

irkj.ialrjl.ialrkl.ialrlj.i alrlk.kn I T  *  I CONL 
1012  FORMAT  (  15*  14* I3*5I5» I  7.715  I 
WRITE  OUTPUT  TAPE  3*1023 

1023  FORMAT! 77H  RUN  CLK  T  TRG  XA  YA  XA  YA  XA 

X  YA  XA  YA) 

MARG=-  3 
MX  =  21 
MA=7 

DO  73  MO  =  1 , I P  ,4 
MARG=  MARG+4 

WRITE  OUTPUT  TAPE  3*  493 »  I  D.KLOCK .MX .MARG »XA ( MO ) , YA ( MO ) »XA < MO+1 ) , 
XY  A  ( MO+,1  )  »  XA  ( MO+2  )  ♦  YA  ( MO+2  )  *XA  ( MO+3  )  .  YA  ( MO+3  ) 

IF ( SENSE  SWITCH  1 )  220.73 

220  IF  (IP)  1021,73.1021 

1021  PUNCH  1020.ID,‘KLOCK»MX*MA,MARG.XA(  MO )  »  YA  ( MO )  »  XA  ( MO+1  ) 

7  ,  YA ( MO  +  1 ) .XA ( MO  +  2 ) ♦ YA ( MO  +  2 ) .XA ( MO+3 ) ,YA ( MO+3 ) 

1020  FORMAT  ( 15*14, 13, 2I2*8F6«1) 

73  CONTINUE  ’ 

1022  FORMAT! 15, 14, 13, 212, 8F8. 2) 

WRITE  OUTPUT  TAPE  3,166 

166  FORMAT ( 75H  RUN  CLK  TT  TGT  J  JJ  TA!J)  K  KK  TA ( K )  NSL 
XL  LL  TA ( L )  RODA) 

MAR  =  0 

DO  1100  MZ=1.IP 
MAR=MAR+1 

110U  WRITE  OUTPUT  TAPE  3 • 1026 » I D*KLOCK ,MY ,MAR , JS ( MZ ) * J JS ( MZ  )  , ( STAF J ( MZ > 
X).KV(MZ) .KKS(MZ),(STAFK(MZ) ),NSLC(MZ),LS!MZ) .LLb(MZ) .(STAFL(MZ) ), 
XCGIMZ  ) 

1026  FORMAT! I  5 , 1 4 , I  3 , 14 ,2 1  5 »F6. 3 ,2 1  5 ,F6. 3 .3 1  5 ,2F6* 3 ) 

DO  1025  M0= 1 » I P 
JS ( MO  )  =0 
J JS ( MO ) =0 
STAF J(MO) =0. 

KV ( MO  )  =0 
KKS(MO)=0 
NSLC ( MO ) =0 
STAFK(MO) =0. 

LS ( MO ) =0 
LLS ( MO ) =0 
STAFL(MO) =0* 

CG ( MO ) =0 • 

XA ( MO ) =0 • 

1025  YA(M0)=0. 

I F(MAXLIM-KL0CK >456.456,216 

216  GO  TO  KSL8D ,  (725,489) 

725  IP=0 

GO  TO  61 
END (0*1*1 *0*1) 
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Figure  1-1  Triangulation  Section  II  General  Flow  Diagram 
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1.3  SECTION  III  -  DATA  REDUCTION 


1.3.1  Input/  Output 

There  are  eleven  input  cards  prepared  for  Section  II  as  follows: 

Card  1.  Number  of  data  sets  being  processed 

Card  2  IM  switches 

Cards  3  &  4  Histogram  switches 

Cards  5  &  6  Maximum  value  of  intervals 

Cards  7  &  8  Interval  size 

Card  9  Target  and  sector  cutoffs 

Card  10  Number  of  frames  to  be  processed 

Card  11  Radar  ID  and  range. 

Card  1  The  number  of  data  sets  is  punched  as  a  fixed  point  variable 
in  the  first  five  columns  of  the  card. 

NODSTS 
'  1-5 

Card  2  There  are  four  IM  switches  considered  "on"  if  a  zero  is 
punched;  or  "off,  if  a  non- zero  is  punched  in  their  field. 

The  field  for  each  switch  is  five  columns  designated  as 
follows: 

IM(  1)  IM(2)  IM(3)  IM(4) 

1-5  6-10  11-15  16-20 

The  function  of  each  switch  is  as  follows: 

IM(1)  Calculate  means  and  standard  deviation  of  histograms 
for  each  frame  and  output  information  on  tape  6. 

IM(2)  List  the  true  targets  with  the  nearest  apparent  target 
and  vice  versa  for  each  frame  on  tape  6. 

IM(3)  List  misses,  hits  and  false  alarms  for  each  frame 
on  tape  6. 

IM(4)  Not  used. 
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Cards  3  &  4  There  are  fifteen  possible  histograms  which  may  be 

calculated  depending  upon  the  setting  of  the  histogram 
"switches".  Like  the  IM  switches  they  are  considered 
"on"  if  a  zero  is  punched,  or  "off  if  a  non-zero  is 
punched  in  their  field.  The  field  for  each  switch  is 
seven  columns  distributed  between  cards  3  and  4  as 
follows: 

Card  3  IH(  1)  IH(2)  IH(3)  IH(4)  IH(5)  IH(6)  IH(7) 

1-7  8-14  15-21 '  22-28  29-35  36-42  43-49 

IH(8)  IH(9) 

50-56  57-63 

Card  4  IH(10)  IH(ll)  IH(12)  IH(13)  IH(14)  IH(15) 

1-7  8-14  15-21  22-28  29-35  26-42 

The  histograms  are  all  frequency  distribution  tables. 

The  descriptions  of  the  fifteen  histograms  are  as 
follows: 

Histogram  ID  Description 

1.  Misses:  frequency;  number  of  true  targets;  distribution; 
distance  between  true  target  and  nearest  apparent. 

2.  Hits:  frequency;  number  of  true  targets;  distribution; 
distance  between  true  target  and  nearest  apparent  target. 

3.  False  alarms:  frequency;  number  of  apparent  targets; 
distribution;  distance  between  apparent  target  and  nearest 
true  target. 

4.  Misses  and  Hits:  Accumulation  of  data  from  histograms 

1  and  2. 

5.  Hits  and  false  alarms:  Accumulation  of  data  from  histograms 

2  and  3. 

6.  Strobe  width:  frequency;  number  of  strobes:  distribution; 
width  of  strobes  in  degrees.  A  separate  histogram  is  cal¬ 
culated  for  each  radar. 
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7.  Strobe  width:  \n  accumulation  of  the  data  from  all  the 
radars  in  histograms  6. 

8.  Number  of  targets  per  sector:  frequency;  number  of  sec¬ 
tors  with  X  targets:  distribution:  number  of  targets.  A 
separate  histogram  is  calculated  for  each  radar. 

9-  Number  of  targets  per  sector:  An  accumulation  of  the  data 
from  all  radars  in  histograms  8. 

10.  Number  of  sectors  with  K  targets  or  more:  This  histogram 
is  the  same  as  number  8,  except  that  sectors  with  less  than 
K  targets  {input  data  KTARG)  are  omitted. 

11.  Number  of  sector  with  K  targets  or  more:  This  histogram 
is  the  same  as  number  9,  except  that  sector  with  less  than 
K  targets  are  omitted. 

12.  Number  of  targets  in  sectors  of  width  L  degrees  or  greater: 
This  histogram  is  the  same  as  number  8,  except  that  sectors 
of  less  than  L  degrees  (input  data  SWLD)  are  omitted. 

13.  Number  of  targets  in  sectors  of  width  L  degrees  or  greater: 
This  histogram  is  the  same  as  number  9,  except  that  sectors 
of  less  than  L  degrees  are  omitted. 

14.  Number  of  strobe  sectors:  This  is  not  a  histogram,  only  a 
list  of  the  number  of  sectors  detected  for  each  radar. 

15.  Number  of  strobe  sectors:  A  list  of  the  number  of  strobes 
detected  by  all  radars. 

Cards  5  and  6:  Associated  with  each  histogram  designated  in  cards 
3  and  4  is  a  maximum  distribution  interval.  These 
values  are  punched  in  floating  point  notation  of  the 
form  XXX.  XX  and  are  distributed  on  cards  5  and  6 
as  follows: 

Card  5:  AMXM(l)  AMXM{2)  AMXM(3)  AMXM(4) 

1-7  8-14  15-21  22-28 
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AMXM(5)  AMXM(6)  AMXM(7)  AMXM(8)  AMXM(9) 

29-35  36-42  43-49  50-56  57-63 

Card  6:  AMXM(10)  AMXM(ll)  AMXM(12)  AMXM(13) 

1-7  8-14  15-21  :  -28 

AMXM(14)  AMXM(15) 

29-35  36-42 

The  maximum  distribution  interval  designates  the 
range  of  the  distribution.  If  a  value  happens  to  be 
greater  than  the  maximum,  the  datum  will  be  placed 
in  the  last  interval. 

us  7  &  8  Each  histogram  also  has  an  interval  size  associated 
with  it.  These  values  are  punched  in  floating  point 
notation  in  the  form  XXXXX.X  and  are  distributed  on 
cards  7  and  8  as  follows: 

Card  7:  QNTA(l)  QNTA(2)  QNTA(3)  QNTA(4)  QNTA(5) 
1-7  8-14  15-21  22-28  29-35 

QNTA{6)  QNTA(7)  QNTA(8)  QNTA(9) 

36-42  43-49  50-56  57-63 

Card  8:  QNTA(10)  QNTA(ll)  QNTA(12)  QNTA(l3) 

1-7  8-14  15-21  22-28 

QNTA(14)  QNTA(15) 

29-35  36-42 

Card  9  This  card  contains  cut-off  data  used  in  histograms 

10,  11,  12,  and  13.  KTARG  is  the  minimum  number 
of  targets  of  interest  and  SWLD  is  the  minimum  sector 
width  of  interest.  KTARG  is  a  fixed  point  number  and 
SWLD  is  a  floating  point  number  m  the  form  XX.  XXX. 
Their  fields  are  designated. 

Allowing  the  interval  size  as  an  input  parameter  makes 
it  possible  for  the  analyst  to  have  any  spread  he  desires. 
However,  there  can  be  no  more  than  twenty  (20)  intervals 
in  each  histogram.  The  computer  determines  the  number  of 
inter  vals  by  dividing, AMXM  by  QNTA.  It  is  the  analyst*  s 
responsibility  to  as  sure  that  the  AMXM  and  QNTA  are 
chosen  to  give  no  more  than  twenty  intervals. 
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On  the  card  as  follows: 


Card  9:  KTARG  SWLD 

1-5  6-11 


Card  10:  Card  10  contains  the  number  of  frames  in  the  run. 

It  specified  as  a  fixed  point  number  in  the  first 
5  columns. 

Card  10:  MAXLIM 
1-5 


Card  11:  Card  11  contains  the  radar  ID's  and  the  range.  The 

ID' s  are  in  fixed  point  notations  and  the  range  is  in 
floating  point  notation  in  the  form  XXXXX.  X.  Their 
fields  are  as  follows: 

Card  11:  JR  KR  LRA  LRB  LRC  RANGE 

1-5  6-10  11-15  16-20  21-25  26-32 

The  range  is  designated  in  miles. 

There'  are  three  types  of  data  outputted  from  Section  III,  on-line 
data  (rates,  and  histograms  of  sums),  tape  2  data  (X  and  Y  coordinates  of 
hits),  and  tape  6  data  (intermediate  data). 

On-line  data  are  outputted  from  the  computer  directly  on  the  tabulator. 
There  are  two  types  of  on-line  output.  (1)  Frame  by  frame  and  totals  out¬ 
putted  after  all  the  frames  have  been  completed.  (2)  At  the  end  of  the  run 
are  the  histrograms  of  the  totals  for  the  misses  and  hits  and 
any  other  histogram  specified  by  the  input  data.  The  first  two  histograms 
misses  and  hits,  are  standardized  and  outputted  below  the  histograms  with 
an  S  in  the  margin.  Means  and  standard  deviations  are  also  calculated  for 
these  two  histograms  and  are  outputted  to  the  right  of  the  histograms. 

Tape  2  data  are  outputted  for  future  use  by  auxiliary  routines. 

Tape  6  data  are  outputted  under  the  control  of  the  IM  switches  (see 
input  data).  This  data  is  used  mostly  for  checking  purposes,  however,  this 
data  may  also  be  used  for  auxiliary  investigations  by  writing  an  appropriate 
input  routine. 
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3 . 2  Glossary 
AMXM 

AQT 

AVE 

BMA 

DATA 

DEH 

DEM 

DEV 

DH 

PHI 

DH2 

DISQ 

DSJQ 

DM,  DM1 
DM2 

DRT 

DSCL1 

DSCL2 

DSCL3 


Maximum  value  of  histogram  intervals.  Any  data  values 
higher  than  AMXM  are  collected  in  the  last  interval. 

Temporary  floating  point  storage  of  interval  headings  of 
histograms.  LQT  is  the  fixed  point  storage  ID.  These 
two  are  equivalent. 

Average  of  data  in  histograms.  Only  outputted  on  IM  (1). 

Difference  between  the  upper  and  lower  limits  of  a  strobe 
sector  read  in  from  tape  4  (calculated  in  Section  I). 

Identification  index  of  items  being  histogrammed. 

Temporary  storage  used  when  calculating  the  mean  and 
standard  deviation  for  histograms  1  and  2. 


Standard  deviation  for  histograms.  Only  outputted  on  IM(1). 

Temporary  storage  used  when  calculating  the  mean  and 
standard  deviation  for  histograms  1  and  2. 


Distance  between  an  apparent  target  and  its  nearest  true 
target. 

Distance  between  a  true  target  and  its  nearest  apparent 
target. 

Temporary  storage  used  when  calculating  the  mea*i  and 
standard  deviation  for  histograms  1  and  2. 

Ratio  of  number  of  apparent  target  to  numbers  of  true 
targets  in  range  of  3  radars. 

Distance  between  true  and  apparent  targets  in  classes  1, 
2  and.  3.  (Misses,  hits  and  false  alarms.) 
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DTRAT  Ratio  of  number  of  apparent  target  to  number  of  true 
targets. 

FAC1,  Temporary  storage  used  when  standardizing  histograms 

FAC2  1  and  2  . 

I  A  general  index  used  in  Do  loops. 

ICLS1,  Temporary  indices  used  to  keep  track  of  tiue  targets  in 

ICLS2,  classes  1,  2  and  3.  (Misses,  hits  and  false  alarms.) 

ICLS3 

ID  Run  number. 

IH  A  dimensioned  index  identifying  which  histograms  are 

being  calculated. 

IHT  Calculated  histogram  interval  into  which  a  given  datum  falls 

IM  Intermediate  output  selectors.  IM(1),  IM(2),  IM(3),  IM(4). 

IP  Number  of  apparent  target  in  a  frame. 

IR  Temporary  storage  of  radar  ID  while  reading  in  strobe 

Information. 

IRT  An  index  which  keeps  track  of  the  number  of  radars  which 

detected  in  a  giver  frame. 

ISA VE  A  dimensioned  index  storing  the  number  of  strobes  for  a 
radar. 


ISP  Number  of  apparent  targets  read  in  from  a  given  block  of 

data. 

IX  Temporary  index  used  on  input  for  number  of  strobes  from 

a  given  radar. 

J  General  index  used  in  Do  loops. 


TTT  C 


JCLS1 ,  Temporary  indices  used  to  keep  track  of  apparent  targets 

JCLS2,  in  classes  1,  2  and  3.  (Misses,  hits  and  false  alarms.) 

JCLS3 

J4,  J5,  JE  Temporary  index  used  when  setting  up  histogram  data. 

JR  ID  of  base  radar. 

KING  Assigned  GO  TO  Constant  used  to  select  proper  input  state¬ 
ment  when  reading  in  apparent  targets  from  tape  3. 

KLOCK  Frame  number. 

KNT  A  count  of  lines  of  output,  used  for  page  restoring. 

KO  A  dump  storage  for  eliminating  unwated  data  on  tapes  3  and  4. 

KORAN  An  assigned  GO  TO  constant  used  to  determine  whether  the 
histograms  for  all  the  radars  are  done. 

KOUNT  A  count  of  the  number  of  targets  in  range  for  a  frame. 

KQ  A  temporary  index  used  in  setting  up  data  for  the  histograms. 

KR  ID  of  one  of  the  base  radars. 

KRO  An  index  used  to  keep  track  of  which  histogram  is  being 

calculated. 

KRU  An  assigned  GO  TO  constant  used  to  select  histograms 

"strobe  width"  and  "number  of  targets  per  sector." 

KSUM  Storage  for  accumulating  items  such  as  number  of  elements 
in  the  classes,  miss  rate,  hit  rate,  etc.  KSUM  is  the  fixed 
point  items  and  RSUM  is  used  for  floating  point  items.  The 
two  are  equivalent. 

KTARG  Input  constant  designating  number  of  target  per  sector. 

Used  as  a  lower  cut-off.  i.e.  ,  KTARG  =  4  means  any 
sector  with  less  than  4  targets  is  disregarded  in  the 
histogram. 


KTLOCK  Intermediate  storage  of  frame  number  used  for  compari¬ 
son  in  reading  in  data  from  tapes  3  and  4. 


KXC 

KXD 

KXE 

KXG 

KXL 

KXP 


Assigned  GO  TO  constants  used  in  selection  nearest  apparent 
target  to  a  true  target  and  vice  versa. 


Assigned  GO  TO  constants  used  in  setting  up  data  for 
histograms. 


Temporary  index  used  when  setting  up  histogram  data. 

A  count  of  the  number  of  items  in  class  2  and  class  3. 

A  temporary  constant  used  to  output  histograms  of  all 
radar  data  combined. 

Storage  of  number  of  items  in  the  intervals  of  a  histogram. 


LQT  See  AQT. 


LRA 

LRB 

LRC 


ID  of  secondary  radars. 


LSUM  Accumulation  of  items  in  LH  for  histograms  of  all  radars. 

M  A  count  of  the  number  of  items  in  class  1. 

MA,  MB  Temporary  indices  used  for  output. 

MAR  A  dump  storage  for  eliminating  d»  ‘a  not  wanted  from  tape  4. 

MAX  Number  of  intervals  in  a  histogram.  Can  be  from  1  to  20. 

MAXLIM  Total  number  of  frames  in  the  run.  Input  data. 

ME  A  temporary  index  used  in  sorting  targets. 

MOP  A  temporary  index  used  in  reading  input  data  from  tapes 

3  and  4. 
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MX 

Ml  SUM 
M2  SUM 

il 

NA 

NATI 

NECL1 

NECL2 

NECL3 

NFARAT 

NG 

NHTRAT 

NIL 

NMSRAT 

NO 

NODSTS 

NR 

NTJ 


A  temporary  constant  used  to  designate  which  class  is 
being  outputted  in  IM(3). 

The  histograms  of  classes  1  and  2  are  standardized  for 
comparison.  Ml  SUM  and  M2SUM  are  the  standardizations 
for  LSUM(l)  and  LSUM(2). 

A  variable  indicating  which  histogram  is  being  calculated. 

Number  of  targets  in  a  strobe  sector  calculated  in  Sec¬ 
tion  I.  Inputted  from  tape  4. 

A  table  identifying  the  true  target  closest  to  a  given 
apparent  target  and  vice  versa,  for  tabling. 


Number  of  elements  in  class  1,  class  2  and  class  3. 

Ratio  of  number  of  false  alarms  to  number  of  apparent 
targets  in  a  frame. 

A  switching  constant  used  to  indicate  that  all  the  true 
or  apparent  targets  have  been  sorted. 

Ratio  of  the  number  of  hits  to  the  number  of  apparent 
targets. 

A  dump  storage  for  eliminating  data  not  wanted  from  tape  4. 
Ratio  of  number  of  misses  to  the  number  of  real  targets. 
Number  of  true  targets. 

Number  of  runs  being  processed  in  a  given  pass. 

Number  of  radars. 

A  table  identifying  the  apparent  target  closest  to  a  given 
true  target  and  vice  versa  for  outputting. 
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NU 

QNTA 

RANGE 

RSUM 

RX 

RY 

SD 

SIG1 

SIG2 

SMI 

SUM 

SWLD 

_T 

TOl,  TQ2 

Tl,  T2 
X 

XA 

XCLK 

m 


A  temporary  index  used  in  setting  up  data  for  histograms. 

The  size  of  an  interval  in  a  histogram. 

Maximum  distance  between  a  radar  and  a  target  for  detection. 
See  KSUM. 

X  coordinate  of  a  radar. 

Y  coordinate  of  a  radar. 

Temporary  storage  used  in  finding  closest  true  target  to 
an  apparent  target  and  vice  versa. 

Standard  deviation  for  histograms  1  and  2. 

Floating  notation  for  sum  of  elements  in  class  1  for  a  frame. 

Sum  of  items  in  a  histogram.  Used  to  calculate  mean. 

Strobe  width  in  degrees.  An  input  parameter  used  as  a  m 
minimum  strobe  width  when  calculating  some  histograms. 

A  strobe  from  a  given  radar. 

Floating  notation  for  number  of  elements  in  class  1  and 
class  2  for  a  run. 

Temporary  storage  used  in  sorting  true  and  apparent  targets. 

X  coordinate  of  a  true  target. 

X  coordinate  of  an  apparent  target. 

Frame  number  in  floating  notation. 

Temporary  storage  in  calculating  mean  and  standard 
deviation  for  histogram  of  hits. 


XID  Run  number  in  floating  notation. 

XM  Temporary  storage  in  calculating  mean  and  standard 

deviation  for  histogram. of  misses. 

Y  Y  coordinate  of  a  true  target. 

YA  Y  coordinate  of  an  apparent  target. 


1.  3.  3  FORTRAN  Listing 

0 1 MENS  ION IH< 15)  .AMXM( 15 ) »QNTA ( 15 ) *NSSPD( 5 ) »RX ( 0 ) »RY ( 8 ) ♦ X (  50) ♦ 

XY (  50) .BMA (5.100) ,NA( 5  *lu0) . I  SAVE ( 5 >  * T ( 5 « 100 ) *XA ( 200 ) * YA ( 200 ) * 
XDISQ(50>  »NTJ(5G) .DJSQ<  50) ,NATI (50) .ICLS2(50>  »JCLS2(50) »DCLS2(50) . 
XICLSK50)  ,JCLS1<50)  ,DCLS 1 ( 50 ) » I CLS3 ( 50 )  , JCLS3 ( 50 ) .DCLS3 < 50 ) 
DIMENSION  DATAU25)  ,LH(  25).AOT<  25>.LQT(  25 ) »LSUM ( 1 5 ,20 ) »KSUM ( 15 ) 
X.RSUMI 15) 

DIMENSION  Ml SUM ( 20 ) .M2 SUM ( 20 ) 

EQUIVALENCE  <<SUM,RSUM) 

EQUIVALENCE  (LQT.AQT) 

READ  1 000  tNODSTS 
1000  FORMAT  < 15 ) 

REWIND  2 
REWIND  3 
REWIND  4 

422  IF(NODSTS)  90.90.91 

90  REWIND  3 
92  REWIND  4 

END  FILE  2 
REWIND  2 
END  FILE  5 
REWIND  5 
END  FILE  6 
REWIND  6 
PAUSE  1 

91  N00SIS  *  NCDST S-l 
T01  =  0 

DO  140  I  =  1.15 
KSUM(I)  =  0 
DC  140  11=  1,20 

140  LSUM  (  I  ,  II)  =  0 

READ  978.IM1.IM2.IM3.IM4 
978  FORMAT (415) 

C  SPECIFY  HISTOGRAM  PARAMETERS 

REAo  991  .  ( I H ( I ) • I  =  1,15) 

9v 1  FORMAT  (917) 
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Kuni/  998  ♦  (  AMXM  (  I  )  *  I  =  1  ♦  1  5  ) 

998  FORMAT  (9F7.2) 

READ  992 ♦ (QNT  A ( 1 ) * !  =  ] *15) 

992  FORMAT (9F 7.1 ) 

READ  994  *<.TARG*SWLD 
994  FORMAT ( 15,) 6.3) 

READ  INPUT  TAPE  4 » 1002  * i D*NO*NR *MAXL I M 
1002  FORMAT  (4115) 

READ  10C0.MAXLIM 

RtAD  1001  ,  JR *  KK *  LRA  *  LRB  *  LRC*  RANGE 
1  v 0 1  FORMA T  ( 5  1  5  * K  7  •  1 ) 

3GE  ASSIGN  11  TC  RING 
KNT  =  0 
1  RT  =0 

Do  1  1=  1,NR*4 

1  READ  INPUT  TAPE  4  * 10ub  ,  I D*KLOCK  *MX  *N l L*RX( 1 ) *k  t ( 1 ) »RX  ( 1+1 ) *RY( 1  +  1 ) 
X.RX( 1 +2 ) *RY ( 1+2)»RX( 1 +3  )  *RY ( 1+3) 

1006  FORMAT (15, 14*13*14, 8F8. 2) 

13  I r { <NT )  70*71 ♦ 7  0 
70  <NT  =  KNT  -1 
GO  TO  72 
»'  1  X  N  T  =  49 

PRINT  981*1 D*NO 

9tii  FORMAT ( 16M1CASE  NUMBER  I5»10H.  NT  15*57n  1 R i ANGULA T 1  ON 

X  SECTION  3.  BEND IX  SYSTEMS  DIVISION  704) 

PRINT  982 

982  FORMAT  (76H  CLOCK.  K  N.MS  NHT  NFS  NFARAT  NnTRAT  NMSKAT 

XNuTRAT  NDK  KOUNT) 

72  MOP  =  1 
lvJOS  FORMAT  (80ri 

X 

DO  2  l  - 1 *N0*4 

2  READ  INPUT  TAPE  4  ♦  10u6  *  I  D*Ki_OC<  »  ..,*MAR  *X  (  I  )  *  Y  (  I  >  *X  (  I  +1  )  *  Y  (  I  +1 )  * 

XX  (  I  +2  )  *r  (  1+2  )  *X(  i  4-3)  *Y(  1+3  ) 

98o  DO  986  I = 1 *NR 
985  I SAVfc (  I  )=C 

9  READ  INPUT  TAPE  4 *  1039 *KO*MX . I H *  I X 
1039  FORMAT  (  1 9 , 1  3  *  I  2  » I  60  > 

I r { MX  - 1 8  )  6*6*4 
6  I  SAVE ( I R ) =  IX 
DO  10  I  =  l,  IX *4 
1C  READ  INPUT  TAPE  4*1008 
DO  7  I  =  I  * i X  *  4 

?  READ  INPUT  lAPt  4  *  1 o 1 0 ♦ i D*KLOOK »MX *KO*BMA ( I R ♦ I > *NA ( I R *  I ) »bMA ( I R ♦ !  + 
XI ) ,NA( IR* 1  +  1 ) ,BMA( IK, 1+2 ) *NA< IR* 1+2) *6MA( I R *  I +3 ) *NA (  I R *  I +3  ) 

10 1 0  FORMA  T ( I  6 » 1 4* 13 , I  6  *F 6. 3  *  1 4 ,F 6. 3 , 14 *r  6. 3 *  1 4 ,F6 . 5 , 1 4 ) 

06  Du  o  I=i*lX*4 

8  READ  INPUT  TAPE  4 , 10 14  * KO, T ( I R , I ) * T I  I R *  1 + 1 ) * T ( i R ♦ i +2  )  ♦ T ( I R , I +3  ) 
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1014  FORMAT ( 114* 4F 10*3) 

GO  TO  9 
4  IP  =  0 

I F { l X-2 ) 66*66  *  14 

14  GO  TO  KING*  (’ll  *18  ) 

66  IF(IX)13» 13*68 
68  KR0=6 

GO  TO  49 

11  READ  INPUT  TAPE  3*1008 

READ  INPUT  TAPE  3 ♦ 10 16 *KO.KTLOC< *K0* I SP t KO*KO *KO*KO*KO»KO.KO*KO*KO 
X  *KO*KO,KO 

1016  FORMAT  (15*14.13*515*17.715) 

IF  { KTLOCK  -  KLOCK)  18*18*81 

18  ASSIGN  11  TO  KING 
IP  =  IP  +  ISP 

READ  INPUT  TAPE  3*1008 
DO  15  I =MOP* I  P  .4 

15  READ  INPUT  TAPE  3*  1013 *KO*XA< I ) *YA ( I ) *XA U +1 ) * YA ( I +1 ) *XA ( I +2 ) »YA ( 
91+2) *XA( 1+3) *YA( 1+3) 

1018  FORMAT ( 1 16.8F8 «2 ) 

READ  INPUT  TAPE  3*1008 
MOP* IP  +1 
DO  16  I  *  1*ISP 

16  READ  INPUT  TAPE  3.1008 
I F ( I SP-24 )89. 89*19 

19  ASSIGN  18  TO  KING 
60  TO  11 

81  ASSIGN  18  TO  KING 

C  SORTING  TRUE  AND  APPARENTS  BY  MAGNITUDE  OF  Y-COORDINATE 
89  KRO  *  1 

IF  (IP)  66.66.67 

67  ME  *  NO  -  1 

23  NG*0 

DO  24  1=1 *ME 

I F { Y f I ♦ 1 ) — Y ( I ) )  25*24*24 

25  T 1 *Y I  1  +  1 ) 

T2=X ( I +1 ) 

Y( I+l )*Y< I  ) 

X( 1  +  1 ) =X (  I  ) 

Y ( I  )  *T 1 

X (  I  )  =T2 
NG=  1 

24  CONTINUE 
IF(NG)  26,26.23 

26  ME  =  I  P-1 

IF  (ME)  27*30.27 

27  NG=0 
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DO  28  I *1 .ME 

IF(YA(I+1)-YA(I ))  29.28.28 

29  T1=YA(  I+l  ) 

T2*  XA( I  +  l ) 

YA( I+l ) *YA( I ) 

XA( I+l )*XA( I J 
YA ( I ) *t 1 

XA( I ) *T2 
NG=  1 

28  CONTINUE 

IF(NG)  30*30.27 

C  FINDING  CLOSEST  AT  TO  TT  AND  VICE  VERSA 

30  MA=NO 
MB*  IP 

ASSIGN  33  TO  XXC 
ASSIGN  36  TO  KXD 
ASSIGN  40  TO  KXE 

32  DO  41  1*1 *MA 
J=1 

GO  TO  KXC. (33.34) 

33  DISQ(I)  *  ((X(I)  -  XA ( J )  )**2  +  (Y(I>  -  YA( J) )**2)**#5 
NTJ( I ) = J 

GO  TO  35 

34  DJSQ(I)  *  ( (XA( I )  -  X ( J ) ) **2  +  (YA(I)  -  Y ( J ) )**2 )**• 5 
NATIt I)*J 

35  DO  31  J*2 .MB 

GO  TO  XXD. (36.37) 

36  SD  *  UX(I)  -  XA  ( J )  )**2  +  !Y(I)  -  YA  ( J )  )  **2  )  **.  5 

IF ( SD-DISO( I ) )  36.31.31 

38  DISO( I ) *SD 
NT  J ( I ) = J 
GO  TO  31 

37  s0  *  ( ( XA ( I )  -  X( J) )**2  +  (YA(I)  -  Y( J) )**2)**.5 

I F ( SD-DJSQl I ) )  39.31.31 

39  DJSOt I ) =SD 
NAT  I ( I ) * J 

31  CONTINUE 

41  CONTINUE 

GO  TO  XXE* (40*42) 

40  ASSIGN  34  TO  KXC 
ASSIGN  37  TO  KXD 
ASSIGN  42  TO  KXE 
MA=  IP 

M0*NO 
GO  TO  32 

42  IF ( IM2  »  45.700.45 

C  INTERMEDIATE  OF  TABLES  BtFORE  CLASSIFICATION 


IH-S 


1-53 


700  WRITE  OUTPUT  TAPE  6.702.N0* ID.KLOCK 

702  FORMAT (55H  X  XA  Y  YA  DIST  I  J  NOTRT* 

914. 15. 15) 

DO  704  1*1. NO 
MB=NTJ( I > 

704  WRITE  OUTPUT  TAPE  6.703 * IX( I) )• IXAIMBH •( Y< I)) ♦ i YA(MB )) *D ISO(I) » 
91  .MB 

703  FORMAT(5F8. 3.214) 

WRITE  OUTPUT  TAPE  6.712. IP 

712  FORMAT ( 55H  XA  X  YA  Y  DIST  J  I  NOAPT* 

X  14 ) 

DO  705  I  *  1  *  IP 
MB*NAT I { I > 

705  WRITE  OUTPUT  TAPE  6*703*  (XAU) )  *(X(MB)  )  .(YAU  ))♦  <  Y  ( MB )  )  .DJSQU  )  ♦ 
91. MB 

45  L*0 
M*0 

C  CLASS  II  CONTENTS 
DO  43  1*1. NO 
MC-NTJU  ) 

I F ( NAT  I ( MC ) -I )  46.47.46 

47  NAT  I  ( MC  )  *-*l 
L*L  +  1 

I CLS2 1 L ) *  I 
JCLS2 ( L ) *MC 
DCLS2 ( L ) *DI SQ ( I  ) 

GO  TO  43 

C  CLASS  I  CONTENTS 

46  M*M+1 

I CLS1 ( M ) *  I 
JCLS1 ( M ) *MC 
DCLS1 ( M ) *DI SO ( I  ) 

43  CONTINUE 
NECL1=M 
NECL2*L 

C  CLASS  III  CONTENTS 

L*0 

DCLS3 ( 1 ) *0 
JCLS3 ( 1 )  «  0 
ICLS3 ( 1 )  «  0 
DO  44  I-l.IP 
IF(NATHD)  44.44.48 

48  L*L+1 

DCLS3 ( L  )  *D JSO (  I  ) 

JCLS3 ( L  ) *  I 
I CL53 ( L ) *NATI I  I  ) 

44  CONTINUE 
NECL3*L 
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X I D  =  ID 
XCLK  =  KLOCK 
DO  141  I  =  1  *NECL2 
MB  =  JCLS2 (  I  ) 

MA= I CLS? (  I  ) 

141  WRITE  OUTPUT  TAPE  2 ♦ 989 .KLOCK • X I D »XCLK ,MA *MB ♦ DCLS2 ( I) .X < MA ) ♦ Y ( MA ) ♦ 
XXA  ( MB  I  *  YA  <  MB ) 

989  FORMAT  U 5  ♦  F10 .7 ♦ F5. 0 . 2  1 8 * 5F8 • 2  I 
IF ( IM3 149*701 *49 
C  INTERMEDIATE  OF  CLASSES 
701  MX=1 

ASSIGN  711  TO  KXC 

706  WRITE  OUTPUT  TAPE  6*707. MX 

707  FORMAT (  4H  CLSI2.48H  X  XA  Y  YA  DIST  I 

X  J) 

GO  TO  KXC. (711*713*7151 
711  DO  708  I » 1 *NECL1 
M4= I CLS1 (  !  ) 

MB= JCLS1 (  I  ) 

708  WRITE  OUTPUT  TAPE  6 . 709  .  ( X ( MA ) ) ♦ ( XA ( MB ) 1 » ( Y ( MA )) * ( YA ( MB ) ) *DCLS1 ( I ) 
X.MA.MB 

709  FORMAT (F12.3.4F8.3.2I4) 

MX  =  2 

ASSIGN  713  TO  KXC 
GO  TO  706 

713  DC  710  1=1. NECL2 
MA= ICLS2 ( I 1 

MB= JCLS2 ( I 1 

710  WRITE  OUTPUT  TAPE  6. 709 » ( X ( MA )) • ( XA ( MB H « ( Y ( MA )) ♦ ( YA ( MB M »DCL$2 ( I ) 
6*MA.MB 

MX  =  3 

ASSIGN  715  TO  KXC 
GO  TO  706 

715  IF  ( NECL3  )  49*49*716 

716  00  714  I =1 .NECL3 
MB= JCLS3 ( I ) 

MA=  I CLS3 ( I > 

714  WRITE  OUTPUT  TAPE  6 » 709 » I  X ( MA ) ) » ( XA ( MB ) > . ( Y ( MA ) ) , ( YA ( MB ) ) *DCLS3 (I) 
8 ♦ MB . MA 

C  COMPUTE  HISTOGRAMS 

49  N=KRO 
296  FORMAT ( Iri  1  ) 

505  IF  ( I H ( N } )  99*345*99 

345  GO  TO  (51*52f>53» 54 *55*56. 5 7 *58*5 9.* 60*61*62*63* 64 *65  )  »N 
51  MX*  1 

NU=NECL 1 
DO  121  1=1, NU 
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121  DATA(  1)«DCLS1U  ) 

125  MAX  *  (AMXM(N) /QNTA(N) )  ♦  1 

ASSIGN  99  TO  KORAN 
GO  TO  100 

52  MX=2 

NU3  NECL2 
DO  123  I  *  1  .NU 

123  DATA( I >*  DCLS2 ( I ) 

GO  TO  125 

53  MX= 3 
NU*NECL3 

DO  119  1*1#  NU 
119  DATA ( 1 ) *DCLS3 ( I ) 

GO  TO  125 

54  MX*4 
NU*NO 

DO  127  I  *  1 ,NU 
127  DATA( I )«DISO( I ) 

GO  TO  125 

55  MX*5 
NU*  I P 

DO  129  1*1, NU 
129  DATA( I»*DJSO( I ) 

GO  TO  125 

56  ASSIGN  860  TO  KXP 
193  ASSIGN  861  TO  KORAN 

861  IRT= I RT+1 

I F ( IRT-NR )  131*131.133 

131  IF ( I  SAVE ( IRT ) )  861.861*3^0 
380  NU= I  SAVE ( IRT) 

DO  132  I=1.NU 
GO  TO  KXP. (860. 166) 

860  DATA(I)*  BMA( IRT. I )*57. 2957795 
GO  TO  132 

166  DATA( I ) *FLCATF (NA( IRT.  I  )  ) 

132  CONTINUE 

862  MAX  3  ( AMXM ( N ) /QNT A ( N )  )  +  1  • 

GO  TO  100 

133  I RT  =  0 

GO  TO  99 

57  ASSIGN  863  TO  KRU 
168  NU*0 

DO  135  1*1, NR 
135  NU3NU+ I  SAVE (  I  ) 

KQ=  1 
K1*0 

DO  136  1=1, NR 
I F ( I  SAVE ( I ) )  136,136.381 
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381  Mfc  =  r  AVE(  I 
J4  =  o 

DO  137  11=  KQ.ME 
J4= J4+1 

GO  TO  KRU ,(863,167) 

863  DATA ( I  I ) =  BMA(I,J4)  *  57.2957795 
GO  TO  137 

167  DATA (II)  =  FLOATF ( NA { I  * J4 ) ) 

137  CONTINUE 
KO=ME+l 
K 1  =  I  SAVE ( ' 

136  CONTINUE 
GO  TO  125 

58  ASSIGN  166  TO  KXP 
GO  TO  193 

59  ASSIGN  167  TO  KRU 
GO  TO  168 

60  ASSIGN  182  TO  KXG 

183  ASSIGN  172  TO  KORAN 

172  I RT  =  I RT+1 
IF(IRT-NR)  170,170.133 

170  I F { I  SAVE ( I RT ) )  172*172.383 

383  NU= ! SAVE ( IRT) 

JE  =  0 

DO  171  1  =  1, NU 
GO  TO  KXG, (182, 181) 

18?  IF(NA(  IRT, I )-KTARG)  171,173,173 

173  JE= JF+1 

DAT  A ( JE )  =  BMA ( IRT, I ) *57. 2957795 
GO  TO  171 

181  I F ( BMA ( I R  T , I ) -SWLD )  171,184,184 

184  JE= JE+1 

DATA ( JE ) = FLOATF ( NA ( IRT, I ) ) 

GO  TO  171 

171  CONTINUE 
397  NU= JE 

MAX  =  ( AMXM ( N ) /ONTA ( N ) )  +  1  • 

GO  TO  100 

61  ASSIGN  177  TO  KXL 
175  KQ= 1 

K 1  =0 
J4  =  0 

DO  176  1  =  1, NR 
I  F (  I  SAVE ( I) )  176,176,384 

384  ME= I  SAVE ( I ) +K 1 
J5  =  0 

DO  179  1 1 =KQ»ME 
J5= J5+1 
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GO  TO  KXL, (177,187) 

177  IFlNAtl »J5)-KTARG)  179*178»178 

178  J4* J4+1 

DATA( J4)*BMA( 1 »J5 ) *57,2957795 
GO  TO  179 

187  IF(BMAU,J51-$WLD)  179,188,188 

188  J4*J4+1 

DATA( J4)«FL0ATF(N/  (I,J5) ) 

179  CONTINUE 
KQ*ME+1 

K1*ISAVE{ I  )+Kl 
176  CONTINUE 
NU*  J4 
GO  TO  125 

62  ASSIGN  181  TO  KXL 
GO  TO  183 

63  ASSIGN  187  TO  KXL 
GO  TO  175 

64  ASSIGN  99  TO  KORAN 
GO  TO  164 

65  NU*0 

DO  208  1*1 *NR 
208  NUMSAVEIU+NU 

ASSIGN  99  TO  KORAN 
GO  TO  165 

C  COMPUTE  HISTOGRAMS 
100  DO  110  I*  1,20 
AOTIIJ  *  0 

110  LHU)*0 

IF.(  DATA!  1 ))  301 ,300,301 
301  DO  111I=1,NU 

IHT  *  ( DATA ( I ) /ONTAI N ) )  +  1 
IF  ( IHT  -  MAX)  112,113,113 

113  IHT  *  MAX  -  1 

112  LH( IHT ) *LH ( IHT ) +1 

111  LSUM I N , IHT )  *  LSUM ( N , I HT  )  +  1 
IF ( IM1 )  300,116,300 

116  SUM  =  0 

DO  114  1*1, NU 

114  SUM*SUM+DATA( I  ) 

AVE*SUM/FLOATF (NU) 

SUM*0. 

DO  115  1*1, NU 

115  SUM*5UM+ ( DATA ( I ) -AVE )**2 . 

DEV*SORTF ( SUM/FLOATF ( NU ) ) 

GO  TOI15 1,1 5 1,15 1,15 1,151, 156,1 57, 158, 159, 160, 161, 162, 163, 164, 165) 
X  f  N 

151  WRITE  OUTPUT  TAPE  6, 251, MX 
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251  FORMAT  <  31H  HISTOGRAM  OF  ELEMENTS  OF  CLASSI2) 

GO  TO  290 

156  WRITE  OUTPUT  TAPE  6*256.  IRT 

256  FORMAT ( 43H  HISTOGRAM  OF  STROBE  WIDTH  IN  DEGREES/RADAR  12 *6H/FRAME > 
GO  TO  290 

157  LBJ*6 

WRITE  OUTPUT  TAPE  6,256,LBJ 
GO  TO  290 

158  WRITE  OUTPUT  TAPE  6.258, IRT 

258  FORMAT ( 44H  HISTOGRAM  OF  NUMBER  OF  TARGETS/SECTOR/RADAR  I  2 .6H/FRAME ) 
GO  TO  290 

159  L0 J=6 

WRITE  OUTPUT  TAPE  6.258.LBJ 
GO  TO  290 

160  WRITE  OUTPUT  TAPE  6*260*KTARG* IRT 

260  FORMAT ( 33H  HISTOGRAM  Or  NO.  OF  SECTORS  WITHI3.22H  OR  MORE  TARGETS/ 
X RADAR  I  2 .6H/FRAME ) 

GO  TO  290 

161  LB J=6 

WRITE  OUTPUT  TAPE  6*260, KTARG.LBJ 
GO  TO  290 

162  WRITE  OUTPUT  TAPE  6.262 »SWLD* I RT 

262  FORMAT ( 44H  HxSTOGRAM  OF  NO.  OFT ARGETS/SECTOR  OF  W I DTHF7. 2  * 14H  OR 
XMORE/ RADAR  I  2 .6H/FRAME ) 

GO  TO  290 

163  LBJ=6 

WRITE  OUTPUT  TAPE  6 . 262 .SWLD.LB J 
GO  TO  290 

164  DO  263  1  =  1, NR 

263  WRITE  OUTPUT  TAPE  6*264* I , ( ISAVE (I)  ) 

264  FORMAT ( 25H  NO.  OF  ENTRIES  FOR  RADAR  I  2  *  3H  I S I  3 ) 

GO  TO  300 

165  WRITE  OUTPUT  TAPE  6.265*NU 

265  FORMAT (39H  TOTAL  NO.  OF  ENTRIES  FOR  ALL  RADARS  ISI4) 

GO  TO  300 

290  MX=30+N 

WRITE  OUTPUT  TAPE  6,269 

289  FORMAT ( 44H  RUN  CLK  TT  MAX  QNTA  MEAN  STD  DEV) 

WRITE  OUTPUT  TAPE  6,293. ID.KLOC K* MX, MAX, QNTA(N) *AVE  »DEV 
293  FORMAT ( 15*14, 13*17, F7.1.2F8.2) 

DO  411  I  =  1 *MAX 

AOT ( I +1 )  =  AQT ( I ) +ONT  A ( N ) 

411  LQT(I)  =  AOT ( I ) 

WRITF  OUTPUT  TAPE  6 ♦ 295 , ( LOT ( I +1 ) *  I  =  1  *  20 ) 

WRITE  OUTPUT  TAPE  6 *295  ,  ( LH II) , I  =  1  *  20 ) 

295  FORMAT (2014) 

300  GO  TO  KORAN, (99,861*172 ) 

99  IF(N-15)410*423*423 
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423 


451 

452 

454 

455 

456 

457 

453 
450 


453*453*454 


410  N*N+1 

GO  TO  505 
IRT«0 
KOUNT  *0 
DO  450  I«l,NO 

I F ( (  ( X ( I) -RX ( JR ) ) ##2  +  ( Y (I j -RY ( JR ) ) *#2 ) *». 5-RANGE  >451.451*450 
IF( (X( ! )~RX(KR) )#*2+( Y( I )-RY(KR) >**2 >**.5-RANGE >452.452.450 

(iiX< 1 ’“RX(LRA) ,##2+<Y( I >-RY(LRA> )**2 ) #**5-RANGE ) 

IF(LRB)  455.450.455 

(Yn,“RY(LRB»>*#2>*».5-RANGE)453. 453.456 

lr  ( LKC )  457*  450*  457 

KOUNT=KOUNT+l <LRC) )##2+lY< 1 ,“RY<LRC) ) #*2 ) **.5-RANGE )  453.  453.450 

CONTINUE 
DTRAT  =  FLOATF  ; ( I P#1000 J /NO) 

NMSRAT  =  <NECL1*1000)/N0 
NHTRAT  *  { N£CL2*1000 ) / I P 

NFARAT  «=  (NECL3*1000)/IP 
DRT  =  FLOATF( < IP*1000)/KOUNT) 

SMI *NECL1 
T01*T01+SMI 
IF(NECLl)  433.434*433 

434  I F ( KOUNT )  435.433.435 

435  IF (NECL2 )  433.436.433 

436  NECL1  *  NO 

433  PRINT  983,  (CLOCK,  IP,  NECL1  .NECL2  .NECL3  .  NFARAT,  NHTRAT. 

XNMSRAT, DTRAT »DRT, KOUNT 

9.83  FORMAT  (  1 6 ,7 1  7 .2F7. 0 , 1 7  ) 


421 


995 


KSUM( 1) 

X 

KSUM ( 1 ) 

+ 

IP  . 

KSUM(2) 

X 

KSUM ( 2 ) 

+ 

NECL1 

KSUMI3) 

X 

KSUM ( 3 ) 

♦ 

NECL2 

KSUM ( 4 ) 

s 

KSUM (4) 

+ 

NECL3 

KSUM ( 5 ) 

X 

KSUM ( 5 ) 

+ 

NFARAT 

KSUM<6) 

X 

KSUM ( 6 ) 

+ 

NHTRAT 

KSUM ( 7 ) 

X 

KSUM ( 7 ) 

+ 

NMSRAT 

RSUM ( 8  ) 

X 

RSUM (8) 

+ 

DTRAT 

RSUM( 9 ) 

X 

RSUM ( 9 ) 

+ 

DRT 

KSUM ( 10) 

s 

KSUM (10) 

+ 

KOUNT 

RSUM( 11) 

=  RSUM (11 

) 

+  ( DRT**2. ) 

NECL1  = 

0 

NECL2  = 

0 

NECL3  * 

0 

ifiklock 

-MAXLIM)  1 

3, 

421,421 

RSUM { 8  ) 

X 

RSUM ( 8 ) / 

1000. 

RSUM ( 9  ) 

r 

RSUM ( 9 ) / 

1000. 

RSUMt 11) 

= 

RSUM { 1 1 

)/1000000. 

PRINT  995. 

( KSUM ( I ) 

•  1 

=  1.11) 

FORMAT (6H0SUMS  71 

7. 

2F7.3.I7.F10 

SUM  SOS  NDR) 
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PRINT  981*  ID*  NO 
PRINT  921 

921  FORMAT  ( 37H0  FREQUENCY  OF  OCCURENCE  HISTOGRAMS) 

PRINT  922 

922  FORMAT! 104H  HIST.  123456789  10 

X2  13  14  15  16  17  18  19  20  SIGMA  MEAN) 

T02  *  KSUM  ■i  3 ) 

DHl  «  0 
DM1  «  0 
DH  *  0 
DM  *  0 
DH2  *  0 
DM2  *  0 

DEH  =  QNTA(2>*.5 
DEM=QNTA(1>*.5 

DO  416  M  *  l.ZO 
DH  =  FLOATF (LSUM(2»M) )*DEH 
DHl  =  (DH  *  DEH)  +  DHl 
DH2  *  DH2  +  DH 

DM  a  FLOATF  (LSUM(l.M))  *  DEM 
DM1  a  (DM  *  DEM)  +  DM1 
DM2  =  DM2  +  DM 
DEH  a  DEH  +  QNTA ( 2  ) 

416  DEM  *  DEM  +  QNTA(l) 

XM  a  DM2/T01 

SIG1  «  ((DM1/T01)  -  !XM**2. ) )**.5 
XH  a  DH2/T02 

SIG2  * ( ! DH1/T02 )  -  ( XH**2. ) )**.5 
FAC1  «  1000. /TOl 
FAC2  «  1000. /T02 
DO  417  M  ='  1*20 

MISUM(M)  =  ( FAC1*FL0ATF ( LSUM! 1 *M ) ) )  +  .5 

417  M2SUM ( M )  «  ( FAC2*F10ATF I LSUM! 2 *M ) ) )  +  .5 
PRINT  970.  ( LSUM! 1 » 1 1 ) • 1 1  a  1, 20 ) *SI G1 *XM 

970  FORMAT  (4H0  1  18  *  19 1 4 . F10. 3 *F9.3 ) 

PRINT  971.  (M1SUM! I ) *  I  *  1.20) 

971  FORMAT  (4H  S  1  18.1914) 

PRINT  972.  ! LSUM (2 . 1 1 ) . 1 1  *  1 ,20 ) .SIG2 »XH 

972  FORMAT  (4H0  2  18, 19I4.F10.3.F9.3 ) 

PRINT  973.  !M2SUM( I ) ♦ I  »  1,20) 

973  FORMAT  (4H  S  2  18.1914) 

I  *  3 

427  IF! IH( I ) >  428.424,428 

424  PRINT  297 . I ♦ (LSUM! I, II), II  a  1,20) 

297  FORMAT  (1H0  14, 18.1914) 

428  I  »  1+1 

1 F ( I  -  15)  427,427.422 
END  (0.1, 1,0.1) 
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SECTION  2 


FORTRAN  PROGRAM  FOR  SIMULATION  OF  THE  CORRELATION  SYSTEM 

The  complete  system  simulation  program  has  evolved  from  the  initial 
model  with  additional  modifications.  These  modifications  include  an  envi¬ 
ronment  generator  for  maneuvering  targets,  a  modification  to  accept  the 
new  environment  generator,  modification  to  obtain  miss -distance,  and  a 
modification  for  raid  size  estimate. 

The  original  program  and  its  modifications  are  described  in  the  fol¬ 
lowing  five  sections.  The  sixth  section  is  a  description  of  the  off-line  his¬ 
torical  data  analysis  program.  Each  of  these  sections  give  a  glossary  of 
terms,  FORTRAN  listing,  and  flow  charts. 

Input  to  the  simulation  program  is  made  by  cards  only.  For  each  in¬ 
dividual  case,  there  are  three  input  cards  plus  one  for  each  target  in  the 
raid. 

1.  CARD  1 


Kl>  K2,  K3,  K4,  K5,  K6,  K7,  K8,  K9,  KO  These  inputs  are  used  to 
control  the  optional  output.  An  integer  causes  output,  while  a  zero  will  by¬ 
pass  output.  The  outputs  associated  with  each  "switch"  are  listed  below. 

K1  —  the  frequency  distribution  of  target  clusters 

K2  —  no  longer  in  use 

K3  —  the  X  and  Y  coordinates  of  all  targets  (true  and  apparent) 

K4  —  no  longer  in  use 
K5  —  no  longer  in  use 


T 
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K6  —  if  the  number  of  the  true  targets  scored  as  "misses",  the  num¬ 
ber  of  the  nearest  apparent  target  and  the  distance  between  them 

K7  —  the  target  numbers  of  targets  in  a  "hit"  pair  and  the  distance  be¬ 
tween  them,  along  with  the  locations  of  these  targets 

K8  —  the  number  of  the  apparent  targets  scored  as  "false  alarms", 
number  of  the  nearest  true,  and  the  distance  b  tween 

K9  —  no  longer  in  use 

KO  —  the  frequency  distribution  of  the  signal -to -noise  ratio 

2.  CARD  2 

NT,  CLOCKS,  CLOCKL,  CASE,  AZNUL,  DELNUL 
NT 

CLOCKS 

CLOCKL 
CASE 
AZMUL 

DELMUL 

3.  CARD  3 

RMAX,  RMIN,  RMIN2,  AZRES,  DELRES 

RMAX  —  the  maximum  range  at  which  the  radar  can  detect  a 
target  (horizon  cut-off) 

RMIN  —  the  range  at  which  the  noise  level  is  no  longer  a  func¬ 

tion  range 


—  the  number  of  targets  in  the  raid 

—  the  frame  number  at  which  the  simulation  is  to  begin 
calculation 

—  the  last  frame  the  simulation  is  to  evaluate 

—  the  case  number  (need  for  icentification) 

—  a  parameter  which  controls  the  range  of  the  azimuth 
uncertainity 

—  a  parameter  which  controls  the  range  of  the  delta 
uncertainity 
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AZRES 


—  this  is  related  to  the  azimuth  resolution  capabilities  of 
the  radar.  If  the  difference  in  azimuth  of  two  or  more, 
targets  is  less  than  this  parameter,  the  targets  are  not 
resolved  in  azimuth 

DELRES  —  this  is  related  to  the  delta  re'. olution  capabilities  of  the 
radar.  If  the  difference  in  delta  of  two,  or  more,  tar¬ 
gets  are  less  than  this  parameter,  the  targets  are  not 
resolved  in  azimuth  (delta  is  the  difference  in  path  length 
between  target-omni  and  target-search  radar) 

4.  CARD  4 

X(I),  Y (I),  DELX(I),  DELY(I) 

X(I)  —  the  X  coordinate  of  the  target 

Y  (I)  —  the  Y  coordinate  of  the  target 

DELX(I)  —  the  distance  the  target  will  travel  in  a  direction  paral¬ 
lel  to  the  X  axis  in  a  single  frame 

DELY(I)  —  the  distance  the  target  will  travel  in  a  direction  paral¬ 
lel  to  Y  axis  is  a  single  frame 

There  are  NT  CARD  4’s  per  case.  There  must  be  one  for  each  target 
in  the  raid.  To  run  successive  cases,  all  four  types  of  cards  must  be  re¬ 
peated  for  each  case. 

Through-out  the  simulation,  frequency  distributions  are  generated  and 
stored.  They  are  part  of  the  optional  and/or  normal  output  as  follows: 

Normal  Program  Output 

1.  Per  Frame  (printed -on -line,  one  line  per  frame) 

a.  Frame  number 

b.  Number  of  apparent  targets  (number  of  detections)  in  the  frame 

c.  Number  of  targets  in  Sector  1 
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d.  Number  of  targets  in  Sector  2 

e.  Number  of  targets  behind  the  radar 

f.  Number  of  "misses" 

g.  Number  of  "hits" 

h.  Number  of  "false  alarms" 

i.  False  alarm  rate  (number  of  "false  alarms"  divided  by  the  num¬ 
ber  of  detections) 

j.  Hit  rate  (number  of  "hits"  divided  by  the  number  of  true  targets) 

k.  Miss  rate  (number  of  "misses"  divided  by  the  number  of  true 
targets) 

l.  Detection  ratio  (number  of  detections  divided  by  the  number  of 
true  targets) 

m.  Number  of  azimuth  unresolved  clusters 

n.  Total  number  of  targets  involved  in  azimuth  and  delta  unresolved 
clusters  during  this  frame 

o.  Number  of  azimuth  unresolved  clusters  that  are  completely  re¬ 
solved  in  delta 

p.  Number  of  targets  detected 

q.  An  indicator  of  the  performance  of  the  random  number  generator 
(a  computed  theoretical  number  of  detections) 

r.  The  number  of  targets  that  are  jammed  (how  often  is  the  noise 
too  great  for  the  signal  to  "heard") 

s.  Number  of  targets  detected  divided  by  number  of  targets  in-range 
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2.  Per  Case  (Printed  on-line) 

a.  Summations  of  items  2,  3,  4,  5,  6,  7,  8,  14,  15,  and  19 

b.  Frequency  distribution  of  miss  distance  between  hit  pairs,  and 
miss  distances  that  are  associated  with  miss  pairs  (two  (2)  sep¬ 
arate  distributions) 

Optional  Program  Output 

1.  Per  Frame 

a.  The  X,  Y  coordinates  of  all  true  and  apparent  targets 

b.  The  target  number  of  the  true  targets  scored  as  "misses",  the 
number  of  the  nearest  apparent  target  and  the  distance  between 
them 

c.  The  target  number  of  targets  in  a  "hit"  pair  and  the  distance  be¬ 
tween  them,  along  with  the  locations  of  those  targets 

d.  The  number  of  the  apparent  targets  scored  as  "false  alarms", 
the  number  of  the  nearest  true  target,  and  the  distance  between 
them 

2.  Per  Case 

a.  Frequency  distribution  of  signal -to -noise  ratio 

b.  Frequency  distribution  of  all  clusters  encountered 

Most  of  the  optional  frame  output  is  on  magnetic  tape.  Each  output  is 
independent  and  any  combination  may  be  obtained.  The  frequency  distri¬ 
butions  are  listed  on  the  on-line  printer  and  are  not  on  tape. 

2.  1  ORIGINAL  PROGRAM 

2.  1.  1  Glossary 
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► 

r 

r 

>  2.  1.  1.  1  Subscripted  Terms 

< 

AZ 

Azimuth  of  the  target,  measured  clockwise,  at  the 
search  radar  from  west 

i 

j 

DELX 

The  X  increment.  The  distance  the  target  will  travel 
in  a  direction  parallel  to  the  X  axis  in  a  single  frame 

1  i 

DELY 

The  Y  increment.  The  distance  the  target  will  travel 

1 

- 

in  a  direction  parallel  to  the  Y  axis  in  a  single  frame 

i. 

DIFX 

The  initial  X  coordinate  minus  500 

\ 

DIFY 

\ 

The  initial  Y  coordinate  minus  500 

! 

DISFS 

The  distance  in  nautical  miles  between  the  true  and 
apparent  target  in  a  "false  alarm"  pair 

1 

j 

DISH 

The  number  of  "hits"  in  a  given  hit  distance  interval 
of  the  frequency  distribution 

DISHT 

The  distance  in  nautical  miles  between  the  true  and 
apparent  targets  in  a  "hit"  pair 

1 

DISMS 

The  distance  in  nautical  miles  between  the  true  and 
apparent  taigets  in  a  "miss"  pair 

1 

DIST 

The  number  of  misses  in  a  given  miss  distance  inter¬ 
val  of  the  frequency  distribution  of  "miss"  pairs 

1  • 

) 

LAZ 

The  target  number  of  the  Jin  target  in  an  azimuth 

i 

unresolved  list 

1 

LAZDEL 

The  target  number  in  an  azimuth-delta  unresolved 
list 

t 

\ 

( 

LA5DEX 

The  number  of  targets  in  an  azimuth-delta  unre- 

P 

solved  cluster 

LJTH 

The  number  of  the  target  in  an  azimuth  unresolved 
cluster,  from  which  the  targets  are  not  resolved. 

Tne  "target  of  interest" 
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LJTHX  The  number  of  targets  in  a  given  cluster.  Used  for 
the  frequency  distribution  of  clusters 

LTOT  The  number  of  targets  left  in  the  final  cluster  after 

all  delta  resolved  targets  have  been  removed  and  all 
targets  not  azimuth-delta  resolved  from  the  azimuth- 
delta  unresolved  cluster  are  added 

LTOTX  The  same  as  LTOT  except  that  this  is  the  summa¬ 
tion  over  the  entire  run.  Used  for  frequency  dis¬ 
tribution 

M  The  dummy  location  used  to  store  the  sector  num¬ 

ber  of  the  target  and  other  information 

NFS  A  The  target  number  of  the  apparent  target  in  a 

"false  alarm"  pair 

NFST  The  target  number  of  the  true  target  in  a  "false 

alarm"  pair 

NHTA  The  target  number  of  the  apparent  target  in  a 

"hit"  pair 

NHTT  The  target  number  of  the  true  target  in  a  "hit" 

pair 

NMSA  The  target  number  of  the  apparent  target  in  a 

"miss"  pair 

NMST  The  target  number  of  the  true  target  in  a  "miss" 

pair 

NRESOL  The  list  of  true  target  numbers  of  the  unresolved 
targets 

NSIGNO  An  interval  of  the  signal  to  noise  ratio  in  the  sig¬ 
nal  to  noise  frequency  distribution 

NTTOAA  The  number  of  the  apparent  target  closest  to  a 
given  true 
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R1  Range  from  the  target  to  omni  1 

R2  Range  from  the  target  to  omni  2 

RO  Range  from  the  target  to  ihe  search  radar 

X  The  X  coordinate  of  the  true  target 

XAP  The  X  coordinate  of  the  apparent  target 

Y  The  Y  coordinate  of  the  true  target 

YAP  The  Y  coordinate  of  the  apparent  target 

2.  1.  1.  2  Non -Subscripted  Variables 

ADELTA  The  difference  in  ranges  from  rada~  and  from  omni 
to  jammer  (used  only  in  delta  unreso.  /ed  clusters) 

AKI  The  sum  of  the  squares  of  NDR 

AK9  The  sum  of  NDR’s 

AMB  The  sum  of  the  weighting  factor  times  the  noise  of 

the  target  of  all  targets  in  an  azimuth  unresolved 
cluster 

AMBL  The  same  as  AMB  except  the  noise  has  minimum 
restrictions  placed  on  it 

ANDR  The  same  as  NDR  except  it  is  in  floating  point. 

The  number  of  detections  divided  by  the  number 
of  targets  in  range 

AND2  ANDR  squared 

ANGLE  The  angle  of  the  apparent  target  in  polar  coor¬ 
dinates 

ANO  A  random  number  multiplied  by  AZMUL 
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AOSIGA 

AOSIGO 

AZMUL 

AZRES 

A2T 

BARH 

BARM 

BNO 

CASE 

CLOCK 

CLOCKL 

CLOCKS 

CONY 

DELMUL 

DELRES 


Noise  to  Signal  ratio  at  the  omni  receiver 

Noise  to  Signal  ratio  at  the  search  radar 

Scales  the  magnitude  of  the  uncertainty  in  the  azi¬ 
muth  of  the  apparent  target 

The  azimuth  limits  which  two  or  more  targets 
must  be  within  to  be  clarified  as  azimuth  unre¬ 
solved 

The  azimuth  of  the  target.  Different  reference 
than  AZ 

The  mean  distance  between  "hit"  pairs.  This 
is  for  the  entire  run 

The  mean  distance  between  "miss"  pairs.  This 
is  for  the  entire  run 

A  random  number  multiplied  by  DELMUL 

An  arbitrary  number  assigned  for  identification 
of  input  parameters 

The  number  of  the  frame  which  is  being  evaluated 

The  last  frame  that  the  simulation  is  to  evaluate 

The  frame  number  with  which  the  simulation  is  to 
begin 

Conversion  factor  to  change  radians  to  degrees 

Constant  used  to  fix  the  magnitude  of  the  delta 
uncertainty  for  an  apparent  target 

The  delta  limits  which  two  or  more  targets  must 
be  within  to  be  classified  as  delta  unresolved 


DELTA  The  difference  in  ranges  from  jammer  to  search 
radar,  and  from  jammer  to  omni  receiver 

DIFRX  The  difference  in  the  true  X  and  the  apparent  X 
coordinate 

DIFRY  The  difference  in  the  true  Y  and  the  apparent  Y 
coordinate 

DISSQ  Shortest  distance  squared  between  a  true  target 
and  an  apparent  target.  Used  in  scoring  only 

DISTA  Squared  root  of  DISSQ 

DIXH  Summation  of  "hits"  that  occur  in  the  run 

DIXM  Summation  of  "misses"  that  occur  in  the  run 

FLJ  A  weighting  factor  which  gives  more  weight  to  the 

targets  closest  to  the  J**1  target  and  less  weight 
to  those  near  the  edge  of  the  beam  (used  for  azi¬ 
muth  unresolved  clusters  only) 

FRACT  The  reciprocal  of  the  range  squared  of  the  target 
in  an  azimuth  unresolved  cluster 

FRE1  Summation  of  "hits"  in  a  given  interval  times  the 

midpoint  of  that  interval 

FRE2  Summation  of  "misses"  in  a  given  interval  times 

the  midpoint  of  that  interval 

FRED  Midpoint  of  the  interval  (upper  limit  —  lower  limit) 

/ Z;  this  is  for  "miss"  intervals 

FRED 2  Summation  of  "misses"  in  a  given  interval  times 

the  midpoint  of  that  interval,  the  quantity  squared 


FREQ 


Midpoint  of  "hit"  interval 


FREQ2 


Same  as  FRED 2  only  it  applied  to  "hits" 


GAIN  Gain  in  side  lobes  divided  by  the  gain  in  the  search 

radar 

HIG,  HIGH,  HIGHR  Arbitrary  upper  limits  for  frequency 
distributions 

IAP,  ID,  IND,  I,  IJ,  ITR  These  are  general  index  registers 

J  The  index  register  that  controls  the  number  of  the 

target  of  interest 

K  The  number  of  apparent  targets  in  a  given  frame 

KABAS  An  index  used  to  denote  an  unresolved  target 

KEN  Output  type  number.  Used  on  output  tape  3  for 

identification 

KO,  Kl,  K2,  K3,  K4,  K5,  K6,  K7,  K8,  K9  (see  detailed  write  - 
up)  Used  to  control  optional  output 

Summation  of  apparent  targets  taken  over  the 
entire  run 

Summation  of  NSUMM1  for  run  (targets  in  sector  1) 
Summation  of  NSUMM2  for  run  (targets  in  sector  2) 
Summation  of  "missed"  targets  for  run 
Summation  of  "hit"  targets  for  run 
Summation  of  "false  alarms"  for  run 
Summation  of  KOUNT7  for  run 


KK 

KK2 

KK3 

KK4 

KK5 

KK6 

KK7 


KK8 


Summation  of  K0UNT8  for  run 


KLOO 

KNTSUM 

KOUNT1 

KOUNT2 

KOUNT3 

KOUNT4 

KOUNT5 

KOUNT6 

KOUNT7 

KOUNT8 

KOUNT9 

L 

LINDX 

LL1 


Index  register  used  for  targets  in  a  delta 
unresolved  cluster 

An  indicator  of  the  performance  of  the  random 
number  generator.  Should  agree  closely  with 
KOUNT5 

The  number  of  targets  whose  probability  of 
detection  is  unity 

The  number  of  targets  whose  probability  of 
detection  is  0.  6 

The  number  of  targets  whose  probability  of 
detection  is  0.  2 

Number  of  targets  whose  probability  of  de¬ 
tection  is  zero 

Number  of  targets  detected  (equal  to  K) 

Number  of  azimuth  unresolved  clusters 

Total  number  of  targets  that  are  not  azimuth 
or  delta  resolved 

The  number  of  azimuth  unresolved  clusters 
that  are  resolved  in  delta 

The  number  of  times  that  the  jammers  succeed 
in  completely  jamming  the  search  radar  (not 
just  denying  range  information) 

Number  of  targets  in  a  given  azimuth  unresolved 
cluster 

Same  as  L 

Summation  of  the  LJTHX's 
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LL2 


LL3 

LXX 

LYY 

MDS 

MHS 

NATOTT 

NDR 

NDTRAT 

NEEL 

NFARAT 

NFS 

NHTRAT 


Summation  of  the  LAZDEX's 
Summation  of  the  LTOTX 's 

Standardized  occurrence  of  "hits"  in  hit  frequency 
distribution 

Standardized  occurrence  of  "misses"  in  miss 
frequency  distribution 

Equal  to  DISMS(NMS)  / 5;  this  is  the  index  used  to 
compute  the  miss  frequency  distribution 

Equal  to  DISHT(NHT)  / 4;  this  is  the  index  used  to 
compute  the  hit  frequency  distribution 

Number  of  the  true  target  that  is  nearest  to  a 
given  apparent  target  (used  as  an  index) 

Detection  ratio;  the  number  of  detections  divided 
by  the  number  of  targets  in -range  (in  tenths  of 
percent) 

The  number  of  detections  divided  by  the  total 
number  of  targets  in  raid  (in  tenths  of  percent) 

Number  of  targets  in  an  azimuth -delta  unre¬ 
solved  cluster 

Number  of  "false  alarms"  divided  by  the  num¬ 
ber  of  targets  detected  (in  tenths  of  percent) 

Number  of  "false  alarms"  in  a  frame 

Number  of  "hits"  divided  by  the  number  of  de¬ 
tections  (in  tenths  of  percent) 


NHT 


The  number  of  "hits"  in  a  given  frame 


NMSRAT  The  number  of  "misses"  divided  by  the  total 
number  of  targets  in  the  raid  (in  tenths  of 
percent) 

NMS  Number  of  "misses"  in  a  given  frame 

NS  Equal  to  signal- to-noise  ratio  divided  by  500; 

used  as  the  index  register  in  computing  signal 
to  noise  frequency  distribution 

NSUMM1  Number  of  targets  in  Sector  1  during  a  given  frame 

NSUMM2  Number  of  targets  in  Sector  2  during  a  given  frame 

NSUMM3  Number  of  targets  behind  the  radar  during  a  given 
frame 

NT  The  j. umber  of  true  targets  taking  part  in  the  raid 

O  A  dummy  symbolic  address  used  to  initialize  the 

random  number  generator 

RADOMA  The  summation  of  the  reciprocal  of  the  range 

squared,  when  RO(I)<  RMIN,  RO(I)  is  replaced 
by  RMIN 

RANGE  The  distance  from  the  apparer*-  target  to  the 
search  radar 

RMAX  Maximum  range  at  which  the  radar  can  "see" 
a  target  (horizon  cut-off) 

RMIN  The  distance  at  which  noise  from  jammer  is 

no  longer  a  function  of  distance 

RMIN2  The  reciprocal  of  RMIN  squared 

SIGMAH  Sigma  of  the  "hits"  or  the  standard  deviation  of 
the  distance  between  hit  pairs 

SIGMAN  Sigma  of  the  "misses"  or  the  standard  deviation 
of  the  distance  between  miss  pairs 

SIGNO  Signal  to  noise  ratic 
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SUM  Summation  of  the  number  of  "hits" 

SUML1  The  summation  of  the  reciprocal  of  the  squares  of 
the  ranges  from  omni  one  to  target;  if  Rl(i)<  RMIN, 
RMIN  replaces  R 1  (i)  (this  is  the  noise  at  omni  1) 

SUML2  The  summation  of  the  reciprocal  of  the  squares  of 

the  ranges  from  omni  2  to  the  target  if  R2(I)<  RMiN, 
RMIN  replaces  R2(I) 

SUMLO  Same  as  SUMO  but  with  minimum  restrictions 

SUMO  The  summation  of  the  reciprocal  of  the  squares  of 

the  ranges  from  the  search  radar  to  target  (no 
minimum  restriction) 

TARGML  The  signal  of  the  target  of  interest  (equal  to 
FRACT) 

TDIFRX  Temporary  storage  for  the  distance  between  the 
X  coordinate  of  the  true  target  and  the  X  coordi¬ 
nate  of  the  apparent  (used  in  the  scoring  process 
only) 

TDIFRY  Same  as  TDIFRX  only  it  is  the  difference  in  Y 

XI  X  coordinate  of  omni  1 

X2  X  coordinate  of  omni  2 

XAPP  X  coordinate  of  the  apparent  target 

XLOW,  XLO,  XHIG,  XLOWR  Interval  limits  for  frequency 
distribution 

XO  X  coordinate  of  search  radar 

XTRU  X  coordinate  of  a  true  target  while  simulation  is 

testing  for  nearest  apparent 


J-4  »*  v->  *!«*.*»»  •*•*•»»  ,  -  _  -  .  -  -  ~  ••  •  *v  <rt,'  t  /\ 


XX  Counter  used  for  controlling  output;  whenever 

XX  is  larger  than  50,  the  program  will  restore 
the  page  on  the  online  printer 

Y1  Y  coordinate  of  omni  1 

Y2  Y  coordinate  of  omni  2 

YAPP  Y  coordinate  of  apparent  target 

YO  Y  coordinate  of  search  radar 

YTRU  Y  coordinate  of  true  target  used  while  testing  for 

nearest  apparent 

2.  1.  2  FORTRAN  Listing 

DIMENSION  L  J I  ri  X  f  5  0  )  ♦  L  ( o  I  X  ( S'J  )  »L  AZl>fc  X  {  50  )  *NS  i  0N0  (  1 5  J> ) 

DIMENSION  NT loAA ( 1 00 ) »D 1 STT  (  100  ) »NMS7 ( 1 00 ) * NMoA (  iUD) *ul oMc i ioo i * 
1NHT  I  (  lOo  )  »NH  i  A(  luO  )  »01  Sti  I  ( 100)  »NFST  (  100  )  ♦NrSAI  iooi  »D  1  Sf  s  (  100  ) 
uiMiLNSION  0 1  ST  (31  )  *  D  i  S  ri  (  3 1  ) 

0  I  Mi.  NS  ION  DIFX  (  100)  ,Dlh  Y  <  100) 

Di-!'  X  (  100)  *7  (  loo  i  » DtLX (  100)  » Dt  L  Y  (  iUU)  *M(  1 00 )  »kO(  lo0)  *K  i  (  100) 

1 ,K2 ( lOO ) ♦ A/ ( 100) 

i  M>  NS  I  ON  NN'O  SOL  (  i  0  0  )  » L  J  i  H  (  SO  )  » LA2  (  SC  )  */ AT"  (  IOC)  ♦  y  AH  t  i  00  )  » L  Ai.  Df  l.  <  SO 
!  )  » L  T  u  I  (  v  0  ) 

K  h  A  i>  A  0  0  *  X 1  ♦  (  i  *X2»Y2»GAlN 
K b  Aij  4 0 ->  *  S I  (j l  » S 1  62  » 6 1 0 3  ♦  (.ON  1  ♦  CONS 
1  S00  DO  3 o  3  I  -  i  »  SO 
L 1  U  C  X  (  I  )  -  0 
5333  LAZui:Xll)=0 
SUX-'O. 

So’M  =  u  • 
h  Kfc.  1  -  0  • 

F  R 1 2  =  0  • 
fr  R  t.  0  =  0  • 

FRtO  =  0  « 

FRtD2=0. 

FRf02=0. 

DXH=0. 

DXM=0. 

HR i NT  8 AS 
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8050 

5002 


5334 


8000 


1100 


DO  8050  I  =1,31 
D I SH ( I )  =0  • 

D I  ST  ( I  i  =0* 

FORMAT (90H  TLQ  8  PROGRAM 

XDATA.  BtNDIX  SYSTEMS  DIVISION  704.) 

DO  5334  1=1,50 
LJTHX! I )=0 
DO  8000  1=1,153 
NSIGNO! I ) =0 
0=0. 

READ  350»K1,K2»K3»K4»K5,K6»K7»K8»K9*IC0 
FORMAT (1011) 

READ  3  ,NT  .CLOCKS  * CL  OCKL » CASE  »AZMUL .DELMUL 
XX=CLOCKS 
FORMAT! 15, 5F10.1) 

READ  400.RMAX  »RMIN  *RMI N2  »AZRES*DELRES 

PRINT  5002 

PRINT  700, CASE, NT 

FORMAT! 12H  CASE  NUMBERF8.0.4H  NTI4) 

PRINT  1100, CLOCKS, CLOCKL.AZMUL.DELMUL 

FORMAT ( 16H  CL0CKSF4.0,7H  CLOCKLF6.0.6H  AZMULF8.6.7H  DELMU 

1LF8.6) 

PRINT  1101,RMAX,RMIN,RMIN2,AZRES»DELRES 

FORMAT! <14H  RMAXF6.0»5H  RMINF6.0.6H  RMIN2F8.7,6H  AZRESF 8 • 

17, 7H  DELRESF8 .6  )  //  ) 

PRINT  701 

FORMAT! I118H  CLOCK  K  NSUMM1  NSUMM2  NSUMM3  NMS  NHT  NFS  NFARAT  NHT 
1RAT  NMSRAT  NDTRAT  KOUNT6  KOUNT7  K0UNT8  KOUNT5  KNTSUM  K0UNT9  NDR 
2  )//) 

FORMAT! 5F10.2  ) 

READ  4,((X!I),Y!I) ,DELX  < I ) ,DELY ( I) ) » I  =  1,NT) 

FORMAT ( 4F 1 0 . 2  ) 

CONV=57. 29577 
X0=500. 

Y0=500. 

KK-0 
KKl* 0 
KK2=0 
Y.K3  =  0 
KK4*0 
KK5  =  0 
KK6  =  0 
KK7=0 
K  K  8  =  0 
AK9  =0 ♦ 

AK1 =0 , 

CL0CK=CL0CKS 
I F ( CLOCKS )  5,7,5 


m-s 


Z-17 


5  DO  6  1=1. NT 

X ( I ) =X ( I ) +CLOCKS*DEL  X  (  I  ) 

6  Y( I  )=Y( 1  )+CLOCKS*Dtl  V (  I  ) 

7  KOUNT 1=0 
K0UNT2  =0 
<OUNT3=0 
K0UNT4=0 
KOUN T  5  =  0 
K0UNT6=0 
KOUN  1'  7  =  0 

koun  re =u 

KOUNT9=0 
NSUMM1 =0 
NSUMM2=0 
NSUMM3  =  0 
SUML0=0. 

SUMO  =0. 

SUM|_1=0. 

SUM|.?=0. 
no  SO  1  =  1, NT 
difxi  i  )  =  x ( r  )-xo 

D I F Y {  I  )=v ( I  J-YO 

R0(  I  )  =SGR  I F  (  l)1  F  X  t  I  )  **2  +  D  i  r  Y  (  i  )  **2  ) 

IF (RO(I J-RMAX)  9,9,8 
9  IF(RO(  D-RMINJ  !i&0o00,b01 

500  SUML0=SUML0+RMIN2 
GO  TO  502 

501  SUML0=SUML0+1 ,/R0( I )**2 

502  SUM0=SUM0+1 */R0( I )**2 

8  RI  (  I )= SORT  FI (X ( I  ) -X 1 )**2+<Y( I ) — Y 1 )**2 ) 
IFIR1I  D-RMAX)  11,11,650 

11  IF(RIU)-RMIN)  052,651,653 

651  SUML3=SUMl.l+l./R1  (  1  )**2 
GO  TO  650 

652  SUML 1 =SUMl 1+RM I N2 

650  CONTINUE 

13  R2( I ) -SORTF ( (X( I }-X?)**2+(V( 1 i-Y^)^*2) 

iMR2  (  I  l-KMAX)  15,15,660 
15  I  F  (  R  2  I  1  )  ~  R  M I  N  /  662,661,661 

661  SUML2  =  SUML2  +  1  •  /R2  l  i  ) 

GO  TO  660 

662  SUML2=SUML2+RMIN2 

665  CONTINUE 

! F  (DIFY( 1)  )  18,18,19 
18  M(  1  )  =  3 

NSUMM3=hSUIv!M3  +  l 
GO  TO  50 
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19  IF (R0( I I-RMAX)  40.40.22 
40  i  F  (!)  i  F  X  (I  >)  20*23*23 

20  1HR1I  I  I-RMAX)  2 1.21.22 

22  Mil) =4 
60  TO  50 

21  MCI )=1 

NSUMM1 =NSUMM1 +1 
GO  TO  26 

23  IF(R2(  D-RMAX)  25.25.22 

25  M(I ) =2 

NS0MM2 =NSUMM2  + 1 

26  AZ ( I ) =ATN lr ( 0 1 F Y ( i ) . -0 i F X  {  I  )  ) 

5o  CONTINUE 

DO  6 6  1-1*50 
L JTH ( I ) =0 
LAZ( I ) =0 
LAZDFl ( I ) =0 
56  LTOT ( I ) =0 

<=0 

L 1 NDX  =  0 
00  100  J=1,NT 
I F ( M ( J ) )  100,56.56 
58  IF (XABSF(M( J) )-2>  60,60,100 

60  L=0 

DO  76  1  =  1, NT 

1 F ( XAbSF ( M ( I  ) ) -X ABSr  ( M ( J  I  )  J  76.62.76 
6  2  IF  (  I  AtJSF  ( AZ  (  J  > -AZ  (  ;  j  )  i  ~AZ«fco  )  64.6^,76 

64  L=l+1 

NRFSOL ( L ) = I 

76  CONTINUE 

72  6ID|.0  =  SUMO 

AMR=0. 

AMBl.  =0  » 

74  I  F ( XABSF (M ( J I ) -1 )  75,71,75 

75  RAD0MA=SUML2 
GO  TO  77 

71  RAD0MA=SUML1 

77  00  88  1=1, L 
KBAS=NRES0L ( i ) 

FRACT=1  »/R0(K.BAS)**2 

FL J= 1 • -ABSF ( (AZ(J)-AZ(KBAS) J/AZReS) 

AMB  =  AM«  +  F  LJ*F'RAfT 
I  F ( FRACT-RM I N2 )  275,275,274 

274  FRACT=R.VIN? 

2 75  AM«l=AMBL+FL J^FRACT 
IF(J-KBAS)  88,276,88 

276  TARGML=f RACT 

IFCXABSF (Ml J) )-l )  83,85,83 


lU-S 
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83  I F  ( R2  ( K8AS ) -RMIN )  680,680,681 

680  RANGMA=RMI N*#2 
GO  TO  682 

681  RANGMA=R2 IKBAS)**2 
682  CONTINUE 

OELTA=RO( J)-R2 I J) 

GO  TO  88 

85  IFIR1  (KBAS)-RMIN)  690,690,691 

690  RANGMA=RMIN**2 
GO  TO  692 

691  RANGMA=R1 (KBAS)**2 

692  CONTINUE 
DFLTA=R0( Jl-Rl ( J) 

88  CONTINUE 

IF (AMBL-(SUM0-AMB)*GAIN )4000,89,89 
4000  <0UNT9=K0UNT9+1 

GO  TO  100 

89  AOS  I GO= ( ( SUMO-AMB ) *GA I N+AM8L-TARGML ) /TARGML 
AOS IGA= ( RANGMA*RAD0MA ) -1 . 

S I GNO= 1 . / ( 2 . +A0S I GO+AOS I GA+AOS IGO*AOS I GA ) 
NS=S I GNO*500, 

N  S  =  N  5  + 1 

IFINS-152)  8002,8002,8001 

8001  NSIGNOI 152)=NSIGNO(152)+l 
GO  TO  8003 

8002  NSIGNOI NS ) =NS I GNO ( NS ) +1 

8003  CONTINUE 

I  F ( SIGNO-SIGl )  99,101,101 
101  KOIJNT  l  =  KOUNTl  +  l 

GO  TO  112 

99  I F ( SIGNO-SIG2 )  103,102*102 

10?  K0UNT?=K0UNT2+1 

TF(RAM?6F(0)-.6)  112,250,250 

103  TFISIGNO-STG3)  105,104,104 

104  KOUNT3=KOUNT3+l 

IF( RAM2BF  C  0 )  —  • 2 )  1  12,250,250 

105  K0UNT4  =  K0IJNT4+1 

250  CONTINUE 

GO  TO  100 

112  K0UNT5=K0UNT5+1 

IF(L-l)  113,113,114 
114  K0UNT6  =  K()UNT6  +  3 

L  INOX  =  L I NOX  +  1 
IFILINDX-50)  73,73,122 
73  LJTH(LINDX)  =J 

LJTHX(l)=tJTHX(l)+l 

LAZ(LINDX)  =L 
GO  TO  122 
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113  A2T=AZ  (J) 

115  ANO= ( RAM28F (0)-,5)*AZMUL 
A2  T  =  A2  T +ANO 

BNO=  (  RAM2BF  ( 0 ) 5  )  *DELMUL 
DELTA=DFLTA+  BNO 
I F ( XAB5F (M ( J ) ) -1 )  116,116*117 

116  ANG|_F  =  A2T+C0N1 
GO  TO  118 

117  ANGLF=A?T-CON2 

1 18  RANGF= (2500.-DFLTA**?) / ( 100.*C0SF { ANGLF ) -2.*DELTA ) 
1298  CONTINUE 

K  =  K  +  1 

1 20  XAP ( K  J  =XO-RANGF*COSF C  A 2 T ) 

121  YAP ( K ) =YO+RANGE*S I NF ( A2T  ) 

GO  TO  100 

122  NEEL=0 

DO  130  1  =  1,  L 
<BAS  =  NRESOL( I  ) 

IF(XABSF(M( J) )-l )  123,123,124 

124  I F ( ARSF ( RO ( KRAS ) -R2 ( KBAS ) -DELTA ) -DFLRES )  127,127,130 

123  IF(ABSP(R0(KBAS)-R1 ( <BAS I-DFLTA ) -DFLRFS )  127,127,130 

127  MFFL=Nt'FL  +  l 

M( KBAS ) =-M( KBAS ) 

NRESOL ( NEEL ) =NRFSOL (  I  ) 

130  CONTINUE 

LAZDFX(NEEL)=LAZDEX(NFEL)+1 
IF  CNFEL-1 )  517,517,132 
517  K0UNT8  =  K0UNT8  + 1 

I F { L I NDX-50 ) 7000 ,7000 ,113 
7000  LAZDFL ( L I NDX ) = 1 
I.TOT  (  L  I NDX  )  =  1 
GO  TO  113 
132  <L00= 1 

IF (L I NDX-50 >133,133,134 

133  l.AZOPL(LINDX)=NFEL 

134  IF  (NRFSOL  (Kl.OOi-J)  135,150,135 

135  I  ND=NRESOL ( KLOO ) 

IFIXABSF CMC J) )-l )  136,136,137 

136  ADELTA=RO( INDI-R1 ( IND) 

GO  TO  140 

137  ADELTA=RO( INDI-R2I IND) 

140  DO  149  1=1, NT 

IF  (MID)  14  9,77  7,777 

7  77  I  F ( X ARSF ( M ( !  ) ) -XABSF ( M ( J  )  )  )  149, 14]  ,  149 

141  JF(AB9F(A7( I > -A7 ( KLOO )) -AZRFS )  142,142,149 
14?  I  F ( XABSF (M ( J ) ) -1 )  146,146,143 

146  IF(ARSF(R0(M-R1  (I) -ADELTA  ) -PFLR.FS  >  144,144,149 
144  NEEL=NFFL+] 


UI-S 
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NRESOL ( NEEL )  =  I 
MU  )=-M(  I  ) 

GO  TO  149 

143  IF(ABSF(RO( IJ-R2U > -ADELTA ) -DELRES )  144,144,149 

149  CONTINUE 

150  KL00=KL00+1 
IF(<LOO-NEPL)  134,134,152 

152  LTOTX(NEEL)=LTOTX(NEEL)+l 
lF(LINDX-50) 155*155* 156 

155  LT0T(LINDX)=NEEL 

156  SUMAZ=0. 

DENOM=NEEL 

KOUNT7=KOUNT7+NEEL 

A2T=0. 

DO  160  I = 1 ,NEEL 
KBAS=NRESOL( I ) 

IF(AZ(KBA5)-A2T)  160,160,277 

277  A2T  =  AZ ( KBAS ) 

I F  C  XABSF  CM  C  J> ) -1 ) 278 *278 ,279 

278  DELT A=RO ( KRAS ) -R I (KBAS) 

GO  TO  160 

279  DELTA=R0(KBAS)-R2(KBAS) 

160  CONTINUE 

GO  TO  115 

100  continue 

NMS  =  0 
NHT  =0 
NFS=0 

IF(K)570,571 ,570 
571  DO  572  I TR= 1 »NT 

NMS=NMS+1 
NMST ( NMS ) = I TR 
NMSA(NMS)=-0 
57?  DIS^SINMS ) =-0 
GO  TO  575 

570  DO  168  I7R= 1 »NT 

I  A  P  =  1 

NTTOAA(ITR)  =1 
XTRU=X ( I TR) 

YTR'J  =  Y(  ITR) 

DIFRX=A8SF(XTRU-XAP(  IAP)  ) 

DIFRY  =  ARSF( YTRU-YAP ( IAP)  ) 
DISSQ=DIFRY**2+DIFRX**2 
DO  166  I  AP  =  ?  ,K 
TDIFRX=ABSF(XTRU-XAP( IAP)  ) 

TD I  FRY =ABSF( YTRU-YAP ( IAP)  ) 

I F ( TDIFRX-DI FRX 1  165,164,164 


164  I F ( TDIFRY-DIFRY )  165,166,166 

165  TDISSG=TDIFRX**2+TDIFRY**2 
IM TDISSQ-JiSSQ)  167.166*166 

167  NTTOAAl ITR)=IAP 
D I S$0=  TO  I SSG 

D I FRX=TDI FRX 
DIFRY=TOIFRY 

166  CONTINUF 

168  OISTT(ITR) =SQRTF ( D I SSQ ) 

171  DO  178  !AP=1»K 
I  TR=  1 

NATOTT  =  1 
YAPP=YAP { IAP ) 

X APP  =  X  AP (  IAP) 

D I FRX=A6SF ( X ( 1TRJ-XAPP) 

D I FRY=ABSF ( Y ( ITR)-YAPP) 
PISSQ=0IFRX**2+DIFRY**2 

172  DO  175  !TR=2,NT 

TO  I FRX=ABSF ( X ( I TR ) -XAPP ) 

TD I FRY= ABSF ( Y ( ITR)-YAPP) 

IF(TDIFRX-DIFRX)  169,170,170 
17"  IF (TDIFRY-DIFRY)  169,175,175 

169  TDISSO=TDIFRX**2+TDIFRY**2 

I F ( TD I SSO-D I SSQ )  173,176,175 

173  NATOTT  =  1 TR 
DISSO=TDISSG 
D I FRX=TD I FRX 
D1FRY=TDIFRY 

176  CONTINUE 

DISTA=SGRTF(DISSG) 

I F ( XABSF ( NT TO A A (NATOTT ) J-IAP)  176,177,176 

177  NHT  =  NHT  +  1 
NHTT(NHT)=NATOTT 
NHT  A ( NHT ) = I AP 

D I SHT ( NHT  )  =D I STT ( NATOTT ) 

MHD=DISHT(NHT)*4. 

MHD=MHD+ 1 

I F ( MHD-3 1 )  1404,1405,1405 

1405  DISH (31 ) =  D I SH ( 3 1 ) + 1 • 

GO  TO  1406 

1404  DISH(MH0)=DISH(MHD)+1. 

1406  CONTINUE 

NTTOAA( NATOTT ) =-NT TOAA ( NATOTT ) 

GO  TO  178 
176  NFS=NFS+1 

NFST ( NFS ) =NATOTT 

NFSA ( NFS ) = I AP 

0 1 SFS ( NFS ) =SORTF ( D I SSQ ) 


178  CONTINUE 

DO  440  I TR= 1 ,NT 
I F ( NTTOAA ( I T  R )  )  440,440*442 
442  NMS=NMS+1 

NMST ( NM$ ) = I TR 
NMSA ( NMS ) =NT  TOAA (  I  TR ) 

DISMS(NMS)=DISTT(ITR) 

MDS=DISMS(NMS)/5. 

MDS=MDS+1 

I F ( MDS-3 1  )  1400,1401,1401 

1401  DIST (31 ) =DIST (31 1+1. 

GO  TO  1402 

1400  DIST(MDS)=DIST(MDS)+1. 

1402  CONTINUE 
440  CONTINUE 
575  CONTINUE 

NFARAT=(1000*NFS)/K 

NMSRAT  = ( 1 000*NMS ) /NT 

NDTRAT=(1000*K)/NT 

NHTRAT=(1000*NHT)/K 

KNTSUM=( 10*KOUNT1+6*KOUNT2+2*KOUNT3) 

NDR= ( 1 000*K ) / (N5UMM1+NSUMM2 ) 

ANDR=NDR 
ANDR=ANDR/ 1000. 

AND2=ANDR**2 
A< 1 = AK 1 +AND2 
XX  =  XX+1  . 

IF(XX-(51.+CL0CKS) 1844,843,844 

843  PRINT  845 
XX=CLOCKS 
PRINT  500? 

PRINT  700, CASE, NT 

845  FORMAT ( 1H1  ) 

PRINT  701 

844  CONTINUE 

PRINT  702 , CLOCK, K,NSUMM1 .NSUMM2 »NSUMM3 »NMS ,NHT , NFS »NF ARAT , NhTRAT  , 
1 NMSRAT ,NDTRAT,<OUNT6,<0UNT7,KOUNT8 ,KOUNT5,KNTSUM,KOUNT9,NDR 
KK=KK+K 

KK2  =  KK2+NSUMM 1 
KK3  =  KK3-*-NSUMM2 
KK4=KK4+NMS 
KK5=KK5+NHT 
KK6  =  <  K6+NFS 
KK7  =  KK7  +  KO'jNT6 
KK8=KKR+KOUNT8 

akr=akq+anor 

70?  FORMAT  (F6. 0,1  4, 14,317.214,  15,317-,  16,317,218,15) 

I F ( K3  )  8075,8075,8076 
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8076  CONTINUE 

WRITE  OUTPUT  TAPE  4 « 900 » CASE * CLOCK  »NT  *K 

900  FORMAT (F11.6»F10.0»2I5) 

DO  901  I = 1 , NT 

901  WRITE  OUTPUT  TAPE  4  *  902  *  X ( I ) , Y Cl) 

902  FORMAT (  2F 15 .4 ) 

I F ( < )  6000,6001,6000 

6000  DO  908  I  =  1 , K 

903  WRITE  OUTPUT  TAPE  4, 902 , XAP (I) . YAP (I) 

6001  CONTINUE 
8075  CONTINUE 

359  I F ( K6  >  361,361,362 

362  KEN=6 

IF(NMS)  2100,2200,2100 

2100  DO  906  I  *  1 ,NMS 

906  WRITE  OUTPUT  TAPE  3  *907  *KEN»CASE  *  CLOCK  *NMST  II  )  .  NMSA  (I)  »D  I  SM.S  (  I  ) 

2200  CONTINUE 

’61  IFIK7)  363,363,364 

364  <FN-7 

IF(NHT)  2101,2102,2101 

2101  DO  Q08  1=1 »NHT 
I S  =  NHT  A  I  I  > 

I D  =  NHTT ( I  ) 

908  WRITE  OUTPUT  TAPE  3 » 907  *  KEN *CASE *CLOCK ,NHTT (I) »NHTA (I)  , D I SHT ( I ) , 
IX ( ID) , Y ( ID) *XAP( IS) ,YAP( IS) 

2102  CONTINUE 

363  IFIK8)  365,365,366 
366  KEN=8 

I F ( NFS )  2103,2104,2103 

2103  DO  909  1  =  1, NFS 

909  WRITE  OUTPUT  TAPE  3*907, KEN, CASE  »CLOCK»NFST I  I ) »NFSA ( I ) »DI SFS ( I ) 

365  CONTINUF 
2 194  CONTINUE 

CL0CK=CL0CK+1. 

IF(rLOCK-CLOCKL)  999*999,301 
999  DO  998  1  =  1, NT 

V(I)=Y(  I  l+DFLYI I  ) 

998  X (  I  )  =X ( I ) +DfrLX ( I ) 

GO  TO  7 
301  KFN=0 

5555  FORMAT ( 4H  TOT  I  6 , I  5 , 1 6  *  I  1 3 ♦ 2  I  5 » I  3 1 , I  14 *F28 . 3 > 

PRINT  5  55  5,KK,KK2,KK3»KK4,KK5»KK6*KK7,KK8  *AK9 
PRINT  6500, AKl 
6509  FORMAT (FI  20.6) 

5557  FORMAT ( 7H  TOTAL  II 4 , 1 9 . II 5 ) 

PRINT  845 
PRINT  1666 
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HITS 


MISSES 


PRINT  700  *CASE *  NT 
PRINT  5002 

1666  FORMAT (56H 
1  ) 

PRINT  1667 

1667  FORMAT {  70H  LOWER  UPPER  NUMBER  STD  FREQ  LOWER  UPPER  NUM 

1BER  STD  FREQ  ) 

1408  FORMAT ( 37H  HITS  MISSES  ) 

1409  FORMAT (46H  LOWER  UPPER  NUMBER  LOWER  UPPER  NUMBER  ) 

XL0W  =  0  « 

H  I  GH  =  5  » 

XL0=0 . 

H I G= • 25 
DO  1668  1=1*31 
SUX  =  SUX+D  I  ST (  I  ) 

1668  SUM  =  SUM+D I SH ( I  ) 

SUX=1000./SUX 
SUM= 1000. /SUM 
DO  1411  1=1,31 
LXX=D I SH { I ) *5UM+#S 
LYY=DIST(I)*SUX+.5 

PRINT  1410,XLO,HIG,DISH( I ) , LXX ,XLOW »HI GH , DI ST ( I ) *LYY 

FREQ=(HIG-XLO)/2.+XLO 

FRED=(HIGH-XLOW)/2.+XLOW 

FREQ2=FREQ2+FREQ**2*D I SH ( I  ) 

FRED2  =  FRED2+FRED**2*DIST(  I  ) 

FRE1=FRE1+FREQ*DISH(  I  ) 

FRE2  =  FRE2+FRED*DIST( I  1 
DXH  =  DXH+D I SH ( I  ) 

DXM=DXM+D I  ST ( I  ) 

XLOW=H I GH 
H I GH=H I GH+5 • 

XLO=H I G 

1411  HIG=HIG+.25 

1410  FORMAT(F10.2»F7.2*F8.0, I 10,F10.0»F7.0*F8.0*I10) 
SIGMAH=SQRTF(FRFQ2/DXH-(FRE1/DXH)**2 ) 
SIGMAM=SQRTF(ERED2/DXM-{FRE2/DXM>**2 ) 

BARH=FRE1/DXH 

BARM=FRE2/DXM 

PRINT  1 669  *  S I GMAH  »  S I GMAM  *  BARH  *BARM 

1669  FORMAT ( 1 3H  SIGMA  HITF8.3*11H  SIGMA  MISSF8.3*9H  MC AN  HITF9.3»10H 
1  MEAN  MISSF9.3) 

IF ( K  0 )  369*369*370 
*70  H I GH= • 002 

PRINT  5000 
5000  FORMAT  { 1H1  ) 

PRINT  5002 
PRINT  700, CASE, NT 
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PRINT  450 

450  FORMAT ( 48H  FREQUENCY  DISTRIBUTION  SIGNAL  TO  NOISE  ) 

PRINT  451 

451  FORMAT ( 42H  LIMITS  LIMITS  ) 

PRINT  45? 

45?  FORMAT (86H  LOWER  UPPER  NUMBER  LOWER  UPPER  NUMBER 

1  LOWER  UPPER  NUMBER  ) 

XLOW= .0 
XLOWR=. 102 
XL0=.?04 
XHir.=  ^206 
H1GKR  =  .  104 
DO  453  1=1*51 

''TINT  454  *  XLOW  *HIGH»NSI  GNO  (  I  )  *XLOWR  ♦  H I GHR  ,NS  IGNO  (  I +5 1  )  ♦  XLO  ♦  XH I G  ♦ 
1NSIGNOI 1+101 ) 

454  FORMAT (F6.3,F9.3, 18 »F13.3,F9.3, I8,F13.3»F9.3* 18 ) 

XLO=XH I G 
XHIG=XH!G+.002 

888  FORMAT(F6.1,F9.3,I8,F13.3»F9.3» 18) 

XLOW=H I GH 
HIGH=HlGH+.002 
XLOWR=H I GHR 

453  HIGHR=H!GHR+.002 

369  CONTINUE 

465  FORMAT ( l 7H  DURING  THIS  RAIDI4*53H  AZIMUTH  UNRESOLVE  SECTORS  WERE  F 
XOUND  WHICH  CONTA I  NED  I  5 ♦ 8H  TARGETS) 

IF(Kl)  460,460,461 

461  PRINT  5000 

PRINT  700, CASE  »NT 
PRINT  47? 

L  L 1  =  0 
LL2  =0 
LL3  =  0 

DO  464  T  =?  ,  50 
LL1 =LL 1 +L JTHX ( I ) 

LL2=LL2+LA7DEX ( I ) 

5556  LL3=LL3+LTOTX ( I ) 

464  PRINT  462 , 1  *LJTHX ( I >  .LAZDFX (I) *LTOTX ( I  > » I 
PRINT  5557,LLl»LL2»LL3 

472  FORMAT (57H  NO  TARGETS  AZ  UNK  AZ+DFL  AZ+DEL+OTHcRS  NO  TARGET 
IS  > 

46?  FORMAT ( 112*219,115,19) 

460  CONTINUE 
PAUSE  1 
GO  TO  1500 

907  FORMAT ( IF, FlO,5,F6. 0,218, 6F8»?) 

904  FORMAT! 15, F10.5*FS. 0,518) 

CND (0,1 ,0,0,1 ) 


m-s 


2-27 


This  page  was  left  intentionally  blank. 


I 

f 


i. 


1 


ii 


DIMENSION  STATEMENTS 


NTTOAA  (100),  DISTT  (100),  NMST  (100),  X  (100) 
NMliA  (100),  DISMS  (100),  NHTT  (100),  Y  (100) 

NHTA  (100),  DISHT  (100),  NFST  (100),  M  (100) 

NFSA  (100),  DISFS  (100),  DIFX  (100),  RO  (100) 

DIFY  (100),  DELX  (100),  DELY  (100),  R1  (100) 

R2  (100,  AZ  (100),  NRESOL  (100)  NSIGNO  (100) 
LJTH  (50),  LAZ  (50),  XAP  (100),  YAP  (100) 
LAZDEL  (50),  LTOT  (50),  LJTHX  (50),  LTOTX  (50) 
LAZDEX  (50).  DIST  (50),  DISH  (50) 


I  START  UN¬ 


READ  4 
X  (I)  Y  (!)  DELX  (I) 
DELY  (I)  1=  1.  NT 


PRINT  5002 
PRINT  700,  CASE,  NT 
PRINT  1100.  CLOCKS 
CLOCKL,  AZMUL, 
DELMUL 

PRINT  1101  RMAX 
RMIN,  RMI2,  AZRES 
DELRES 
PRINT  701 


CONV»  57.29577 
XO-500. 

YO  =  500. 

GAIN  >=  ,001 
XI  =  456.6985 
X2  =  475. 
Yl**475. 


Y2“  543.3015 

KK  =  0  KK2  =  0 

KK3  “  0  KK4»=0 

CLOCK = 

KK5*=0  KK6-0 

CLOCKS 

KK7  =0  KK8  «  0 

AK9  *  0  AK1  «0 

m-s 


>  50  » 


1 


* 


CLEARING  TO  ZERO 


DO  5333 
I  =  1,50 


LTOTX  (|)  =  0 
LJTHX  (l)=  0 
LAZDEX  (l)  =  0 


SUX  =0 
SUM  =0 
FRE1  =0 
FRE2  =0 
FRED  =  0 
FREQ  =  0 
FRED2  =  0 
FREQ2  =  0 
DXH  =0 
DXM  =0 


PRINT  845 
RESTORE 


DO  8050 
1  =  1,31 


DISH  (l)=0 
DIST  (I)  =  0 


hi 


reading  inputs 


READ  400 

RMAX,  RMIN2,  RMIN 
AZRES,  DELRES 


READ  3 

NT,  CLOCKS,  CLOCKL 
CASE,  AZMUL,  DEMUL 


I _ I 


UPDATE  TARGETS 


IS 

CLOCKS' 
.  0 


DO  i 
1=  1  NT 


X(I)  =  X(D  + CLOCKS  DELX(I) 
Y  (l)  =  Y  (l)  + CLOCKS  DELY  (I) 


KOUNT1=0 
KOUNT2=  0 
KOUNT3=  0 
KOUNT4=  0 
KOUNT5=  0 
KOUNT4= 0 
KOUNT7“ 0 
KOUNT8=  0 
KOUNT9= 0 
NSUMM1 =  0 
NSUMM2  =  0 
NSUMM3  =  0 
SUMLO  =0 
SUMO  =  0 
SUML1  =0 
SUML2  =0 


•GO  TO  A 
PAGE  2 


Figure  2-1  Original  Program  Flow  Diagram 
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i 


CALC  RANGES  &  MAKE 


GO  TO  B 
PAGE  3 


Figure  2-1  (Cont. ) 
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I 


J 


« 


7 


7 


GENERATE  APPARENT  TARGETS 
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6. 


7 


7 


I 


134 


135 


140 


IS 


NRESOL  (KLOO)^ 

=  j 


YES 


NO 

1 ND  = 

NRESOL  (KLOO) 

J 

YES 

150  ' 

' 

NEEL)  = 
NEEL)  +  1 

KLOO = KLOO 
+  1 

SELECTING  LARGEST  AZIMUTH 


277 

278 

AZ  (KBAS)  -  A2T 

v  y 

^  YES 

>-H 

A2T  =  AZ  (KBAS) 

DELTA = 

RO  (KBAS)  - 
R1  (KBAS) 

|  NO 


279 


DELTA = 
RO  (KBAS)  . 
R2  (KBAS) 


GO  TO 
TOP  PAGE 
7 


Figure  2-1  (Cont.  ) 
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DO  168  V 
I/'  1  ITR  =  ’tHT  j 


IAP=  1 

NTTOAA  (ITR)  =  1 
XTRU  =  X  (ITR) 
YTRU  =  Y  (ITR) 


D1FRX  =  |  XTRU  -  XAP  (IAP)|1 
DIFRY  =|  YTRU  -  YAP(IAP)  | 


DIS5Q  = 
DIFRX2  + 
DIFRY2 


DO  166 
IAP  =  2,K 


Di 


HMS  =  NMS  +  1 
NMST  (NMS)=  ITR 
NMSA  (NMS)=  -0 
DISMS  (NMS)=  -0 


Ra 


1 


X  , 

' 

TDIFRX  **  XT 
TDI  FRY  =  YT 

Rd  -  XAP  (IAP) 
RU  -  YAP  (IAP) 

NEAREST  APPARENT  TO  EACH  TFUE 


168 


166 

NTTOAA  (ITR)  =  |AP 
DISSQ  =  TDISSQ 

DIFRX  =  TDIFRX 

DISSQ  *_ 

TDISSQ 

DISTT  (ITR)  ~ 
DISSwH 

K 

CONTINUE 

TDISSQ  - 

TDIFRX2  + 

0 

DIFRY  =  TDIFRY 

TDIFRY 

I 

3 


NO 


CO  TO 
PACE  7 


Figure  2-1  (Cont. ) 
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HIT  FREQUENCE 


D!  STA,= 
OISSQ” 


INTTOAA  (NATOTT) 

up  y" 


DIST  (31  )  = 
DIST  (31)+  I 


DISH(31)I 

DI9 


NTTORR  (ITR) 

^ 


r  IS  ^ 

MDSE  31 


MISS  FREQUENCY  DISTRIBUTION 
"  |  1402 

7,  U-f  CONTINUE 


*1°  I  DIST  (MDS)  = 
DIST  (MDS) +1 


DO  440 
ITR  =  1,  NT 


“U _ I _ 

CONTINUE 
NO  OP 


178 

CONTINUE 


CONTINUE 


GO  TO 
PAGE  8 


ANOR  = 
ANDR/1000 


HIT  FREQUENCY  DISTRIBUTION 


10  440 
TR  =  1,  NT 


K 


178 


CONTINUE 


JH 


174 


NFST  fNFS)  = 

NATOT  r 

NTTOAA  (NATOTT)* 

DISFS  (NFS)  = 
DISSQK 

-NTTOAA  (NATOTT) 

575 


CALCULATE  RATES 


CONTINUE 


NO 


OP 


XI  CONTINUE  JH 


NFARAT  = 

NMSRAT  = 

NDTRAT  = 

NHTRAT  = 

(1000  NFS)/jj 

(looo  nms>/nt 

(1000  K)/^<|> 

(1000  NMT)/^ 

rr 

: is 


AND2  = 

ANDR  = 

ANDR  = 

NDR  =  1000  K 

ANDR2 

ANDR/1000 

NDR 

NSUMMI  +  NSUMM2 

KNTSUM  =10  KOUNTI  + 
4  KOUNT2  +  2  K0UNT3 


Figure  2-1  (Cont.  ) 


FROM 
PAGE  7 

o 


I 


ID  OF  PACE 


PRINT  700 
CASE,  NT 


PRINT  701 
HEADER 


CONTINUE 


DO  901 
1  =  1,  NT 


WOT  4,900 
CASE,  CLOCK 
NT,K 


NORMAL  FRAME  OUTPUT 


PRINT  702 

CLOCK,  K,  NSUMM1 
NSUMM2.NSUMM3, 
NMS,  NHT,  NFS 
NFARAT,  NHTRAT 
NMSRAT,  NDTRAT 
KOUNT6.KOUNT7 
KOUNT8,KOUNT5 
KNTSUM,  KOUNT9 
NDR 


KK  +  1 

KK2+NSUMM1 

KK3+NSUMM2 

KK4+NMS 

KK5+NHT 

KK6+NFS 

KK/+KOUNT6 

KK8+KOUNT8 

AK9+ANDR 


FFF1=FFF1+FFF3  , 
FFF2=FFF2+(FFF3r 


WOT  3,907 
I  KEN,  CASE 

NMST  (I) 


man! 


CONTINUE 


IS 

.NHT  =  0 


DO  908 
I  =  1,  NHT 


IIS  =  NHT  A  (I) 
ID=  NHTT  (I) 


DO  909 
I  =1,  NFS 


KEh  =  8 


CONTINUE 


WOT  3,907 
KEN,  CASE, 
CLOCK,  NHTT  (I) 
NHTA  (I)  DISHT  (I) 
X  (ID),  Y  (ID) 

XAP  (IS)  YAP  (IS) 


Figure  Z-l  (Cont.  ) 
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GO  TO  PAGE  10 


FRED2=  FRED2 

+  FRED2- 
DIST  (I) 


■*» 


FRE1=  FRE1 
+  FREG-DiSH  (I) 


FRE2  =  FRE2 
+  FRED-DIST  (I) 


DXH=  DXH+ 
DISH  (I) 
DXM-  DXM  + 
DIST  (I) 


■*» 


XLOW  =  HICH 
HIGH  =  HIGH  +  .5 
XLO  =  HIG 


■*> 


1411 


HIG  = 

HIC  +  .25 


GO  TO  PAGE  10 


0- 


BARH  = 
FRE1/DXH 
BARM  = 
FRE2/DXM 


SIGMAH  - 

SIGMAM  ** 

J 

FREQ2/DXH-, 

FREQ2/DXM» 

(FREl/DXH)x 

(FRE2/DXM)* 

Figure  2-1  (Cont.  ) 
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A 


/ 


Fid 


XLO“XHIG 
XHIG  =  XHIG  +  .002 
XLOW  =  HIGH 
HIGH  “HIGH  +  .002 
XLOWR  =  HIGHR 


PRINT  454 
XLOW,  HIGH, 

NSIGNO  (l),XLOWR 
HIGHR,  (NSIGNO(l+51)l 
XLO,  XHIG 
NSIGNO  (I  + 101) 


KOO  453  A 

fU 


LL1  =  LL1  +  LJTHX(I) 
LL2  =  LL2  +  LAZDEX  (I) 
LL3  -  LL3  +  LTOTX  (I) 


444 


PRINT  442 
I,  LJTHX  (I) 
LAZOEX  (I) 
LTOTX  <l),l 


NORMAL  END  OF  PROGRAM 


LL^LL^LLs'^i*^  CONTINUE* 
'  NO 


Figure  2-1  (Cont. ) 
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2.  2  ENVIRONMENT  GENERATOR  MODIFICATION  FOR  MANEUVERING 
TARGETS 

2.  2.  1  Glossary 

ALPHA  1  The  target  heading  measured  from  due  East  counter  clock  - 

wise  to  the  tail  of  the  target  direction  line  (Northbound  =  180  , 
Southbound  =  0°,  etc.  ) 

ALT  Altitude  of  target 

ANGLE  The  angle  used  to  calculate  the  new  target  position  after 

the  target  has  turned  through  9  degrees 

BETA  Angle  of  bank  for  a  specific  target  turn 

CHORD  The  length  of  the  straight  line  connecting  two  points  of  the 

flight  path  of  a  specific  target 

.  CID  Curve  identification.  CID  =  0  implies  a  turn  to  the  right, 

CID  =  1  implies  a  left  turn 

CLOCK  Identification  number  (outputed)  for  each  set  of  target  posi¬ 

tions 

G  Force  acting  on  a  target  during  turn  due  to  gravity  (commonly 

referred  to  as  g -loading) 

HEAD  Flight  direction  of  target  recorded  as  the  angle  measured 

in  degrees  from  due  North  (compass  North),  clockwise  to 
the  front  of  the  direction  line  of  the  target.  (North  bound  =  0°, 

Southbound  =  180°,  etc.  ) 

I  Index  for  frame  loop 

ITAG  Target  flight  plan  control.  This  parameter  keeps  track  of 

where  each  target  is  with  respect  to  its  flight  plan 

I  Target  index 
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N_ 

NF 


NT 

NTOR 

RATETN 

SEC 

SECST 

THETA 

THETAL 

X_ 

XLAST 

XPART 

Y_ 

YEAST 

YPART 


A  counter  used  to  permit  the  program  to  run  30  frames 
before  commencing  a  test  for  out  of  range  boundaries  on 
the  targets 

Subscript  for  flight  leg  identification 

Number  of  frames.  When  NF  is  entered  as  zero  the  pro¬ 
gram  runs  until  all  the  targets  are  out  of  radar  range. 

(Since  NF  is  a  "DO  LOOP  Limit"  the  program  must  trans¬ 
fer  around  the  respective  LOOP  when  NF  =  0.  )  When  NF  >  0 
the  program  stops  after  NF  frames  (radar  revolutions) 

Number  of  targets;  NT  at  present  is  set  for  a  maximum  of 
60  targets 

Number  of  targets  out  of  radar  range 

Angular  rate  of  turn  in  radians  for  a  specific  target  and  a 
specific  turn 

Number  of  seconds  target  is  to  fly  in  a  specific  turn 

Number  of  seconds  target  is  to  fly  in  a  specific  straight 
course 

The  angle  a  target  must  turn  to  complete  a  frame 

The  angle  remaining  to  be  turned  through  to  complete  a  spe¬ 
cific  curved  course 

Target  velocity 

X  coordinate  target  position 

X  coordinate  target  position 

The  X  distance  remaining  to  travel  in  order  to  finish  either 
a  straight  line  course,  or  a  curved  course 

Y  coordinate  target  position 

Y  coordinate  target  position 

The  Y  distance  remaining  to  travel  in  order  to  finish  either 
a  straight  line  course  or  a  curved  course 


2-50 


III-S 


Z.Z.Z  Environment  Generator  FORTRAN  Listing 


DIMENSION  V(60) , X ( 60 ) ,Y(60) ,ALT<60) » SECST (5 ,60) »SEC(5»60) ,HEAD<5»6  002 

X0)  ,G<5,60),CID(5»60),ITAG<60),  XLAST ( 60 )  ♦  YLAST  003 

X(60),  BE  T  A ( 5 , 60 ) »  RMAX ( 60 ) ♦ KM  I N ( 60 ) ♦ RM I N2 ( 60 ) ♦  RATETN(5»60)  004 

DIMENSION  THETA (60) »  CHORD (  60  )  ,  ANGLE ( 60 )  ♦  ALPHAl (60 ) *  THETA1 ( 60  )  005 

EQUIVALENCE (BETA, G )  006 

LQU I  VALENCE ( ALPHA  1 » HEAD )  007 

RL  AD  10, NT, NF, ID  008 

WRITE  OUTPUT  TAPE  2  *  10 *NT  ,NF  ,  I D  009 

10  FORMAT (3 15)  010 

DO  14  J=1,NT  Oil 

READ  12*  <X(J),  Y(J),  AL  T ( J  )  ♦  V(J>)  012 

12  FORMAT  (4F14.4)  013 

READ  16,  SECST ( 1 , J ) ,  HEAD(1,J),  G(1*J),  SECST(  2  ,J),  HEAD!  2  *J)»  014 

X  2  ,J)  ,  CID(  1  ,  J)  ,  CIDC  2  »J)  015 

~  1 6,  SECST ( 3, J ) »HEAD ( 3 , J ),G(3,J),SECST(4»J) ,HEAD(4,J ) ,G( 4, J) ,  016 

I'.  3  ,  J  )  »  CID(4.J)  »SECST(5,J)  ,HEAD(  5»J)  017 

1  ■  0RMAT(2F9.3,F7.3  , 2F9. 3  ,F 7 . 3 , 2F2 . 0 , 2F9 . 3 )  018 

IF  (SENSE  SWITCH1 )300»14  019 

3 00  PR1NT302  020 

302  format ( sshodata  listed  below  is  inputs  ARRANGED  AS  in  INPUTFORMATI  021 

PRINT303»X(J)  ,Y(J)  ,A!.T  (J)  »V(J)  022 

PR  I  NT  304,  SECST  (  1  ♦  J  )  ,HF.  AD  (  1  ,  J  )  ,G  (  1  *  J  )  ,  SECST I  2»J>  *HE  AD  (  2  » J  )  *G  (  2  » J  023 

1  C  I  D (  1,J) ,CID(?,J)  024 

PRINT 304*SFCST (3»J>  *HEAD( ?,J) *G( 3»J) »SECST(4,J) *HEAD ( 4 , J ) ,0(4,0) ,  025 

1  C  I  D ( 3  ,  J ) »CID(4,J) , SECST (5,J) *  HEAD ( 5  » J )  026 

303  FORMAT (  4F16.6)  027 

304  FORMAT(2F9.3»F7.3*2F9.3,P7.3»2F2.0»2F9.3)  028 

14  CONTINUE  029 

N  3  1  030 

DO  20  J= 1 »NT  031 

HEAD! N,J) =270. -HEAD(N,J)  032 

I  TAG ( J )  =  1  033 

RM*X(J)=  1 • 23*SQRTF ( AL  T ( J ) )  034 

RM  I  N  (  J  )  =  •*340.906  +SOR  T F  (  (  340 . 906  )  **  2+  (  92 00 •  /6U8 0.  )  *AL  T  (  J  )  +  <  AL  T  I  J  )  035 

X/6080.)»*2>  0*6 

RMIN2( J)sJ*/(RMIN( J) )**2  037 

V( J)=V( J) /3600.  038 

XLAST ( J )  -  X ( J )  039 

YLAST ( J )  =  Y ( J  )  040 

IF (SENSE  SWITCH1 ) 132, 13U  041 

1 32  PRINT  134, NT  »RMAX(J) ,RMIN(J),RMIN2(J)  042 

134  FORMAT ( 5H  NT=I5,6H  RMAX =F 1 6 . 8 , 6H  RM I N =F 1 6. 8 , 7H  RM1N2=F16.8)  043 

1 3u  WRITE  OUTPUT  TAPE  2 , 2 2 , RMAX ( J ) , RM I N ( J ) , RM I N2 ( J )  044 

2?  FORMAT T3E16.8)  045 

2'J  CONTINUE  046 

C  CALCULATE  NUMBER  OF  SECONDS  IN  THE  TARGET  TURNS  PLUS  RATE  OF  TURN  047 


JII-S 
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136  IF (SENSE  SWITCH  1)  520*106  048 

520  PRINT  62  049 

9?  FORMAT ( 30H  BETA  RATETN  SEC  )  050 

106  PO  26  N  =  i*4  051 

DO  26  J= 1 »NT  052 

B  E  T  A  (  N  *  J 1  =  ATANF(SGRTF( <G(N,J)**2-1.) 11  053 

25  RAT£TN(N*J)  =  (  SINT*  {BETA  (N»J> 1  )  /  (  188 .82*'/  (  J )  *COSF  (  BET  A  ( N  »  J )  )  )  054 

HEAD ( N  +  l *  J ) = 2 70 • -HEAD ( N+l * J )  055 

I F ( SENSE  SWT7  H3 ) 400*401  056 

4CU  PRINT  402*>  .0(N»J)  057 

402  FORMAT ( 7H  Hf  AD  =  FiO.3)  058 

401  IF (CID(N,J) 1200,202*200  059 

? 02  IF (HEADtN+l * J ) -HEAD ( N ♦ J ) >204,206*206  060 

2  06  SEC  (  Pi  *  J  )  -  t  6. 28  ?  2- (  HEAD  (  N  +  l  ♦  J ) -HEAD  (  N  ,  J  )  >*.0 174533) /RATETN  ( N  ,  J )  061 

GO  TO  208  062 

204  SEC ( N , J ) = ( (HEADIN* J ) -HE AD ( N+l ♦ J ) 1* .01 74533 ) /RATETN ( N ♦ J )  063 

GO  TO  2  18  064 

200  IF  M!E AD { W  +  l , J ) -HEAD ( N  * J  )  )2 1C *210*212  065 

210  SEC(N,J)= (6.283?~(HEAD(N,J)-HEAD(N+1»J) ) *.01 74533 ) /RATE TN (N ♦ J )  066 

GO  TO  208  067 

212  SEC(N*J)  -  (HEADI.N  +  1  *J)-HEAD(N*J))*0. 01  74533  /RATETN!  N»J)  068 

208  I F ( SENSE  SWITCH  1)86*26  069 

86  PRINT  88,BETA(N*J) *RAT£TN(N*J) *SEC(N*J)  070 

88  FORMAT ( 3F10. 3 )  071 

26  CONTINUE  072 

N= 1  073 

CLOCK  =0.  074 

WRITE  OUTPUT  TAPE  2*501, CLOCK  075 

501  FORMA  T ( F6 .0 )  076 

DO  120  J= 1 *NT  077 

ALPHAl (J)=HEAD(N»J1*. 01 74533  078 

120  WRITE  OUTPUT  TAPE  2  *  38  ,  X ( J  1  * Y ( J  )  079 

NTOR=0  080 

M=  0  081 

DO  90  1=1, NF  082 

505  CL0CK=CL0CK+1 .  C83 

WRITE  OUTPUT  TAPE  2*501, CLOCK  084 

DO  80  J= 1 *NT  085 

N  =  ITAG(J)  086 

IF  (SECST(N,J)-15. 134,36*36  087 

36  SECST (N,J)=S£CST { N  * J ) -1 5.  088 

X( J)=XLAST( J)-15.*V( J) *COSF (ALPHA  1 { J)  )  089 

Y (J  )=YLAST ( J)~15.*V( Jl^SlNF ( ALPHA  1 ( J ) 1  090 

XLAST! J)=X( J)  091 

YLAST C J)=Y( J)  092 

IFfSFNSF  SWITCH? 194,76  093 

94  PRINT  96*J»N,SECST(N,J)  ,X( J)»Y(J)  094 

96  FORMAT ( 8H0  TARGE T 1 2* 10HI S  ON  THE  I2*21HST.  LINE  LEG.  IT  HAS  F8.3*l  095 

X6HSEC  LEFT,  XCOOR=F8.3 , 7H  YCOOR=F8.3>  096 
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GO  TO  76  097 

34  IF(SECST(N,J) >40,42.40  098 

40  XPART=SECST(N,J)*V< J > *COSF < ALPHA1 < J)  )  099 

YPART=SECST(N.J>*  V ( J ) *S I NF ( ALPHA1 { J ) >  100 

42  I F ( I TAG( J ) -5 ) 44,46 .44  101 

46  PRINT  48  ♦  J  102 

48  FORMAT ( 1 1H  TARGET  NO  I2.32H  IS  TRYING  TO  ENTER  A  5TH  CURVE.)  103 

PAUSE  7  104 

44  I F (  SEC(N,J)-15.+SECST(N.J) )  50.52.52  105 

52  SEC(N.J)*  SEC(N»J)-15»+5 EC ST(N.J)  106 

THETA (  J)  =  ( 15.-SECST (N.J) >*RATETN(N.J)  107 

SECST {  N  ♦  J  )  r  0  108 

XLAST(J)  =  X  (J)-XPART  109 

YLASTI J)=Y( Jl-YPART  110 

CHORD (J)=(2»*V(J)*SINF(TH£TA(J)/2.) ) /RATETN ( N. J )  111 

TARGET  TO  TURN  CLOCKWISE  OR  COUNTER-CLOCKWISE  112 

IF(CID(N,J) >54.56.54  113 

56  ANGLE (J)*THETA(J)/2.+l • 5 70 797-ALPHA  1 ( J )  114 

ALPHA 1 ( J ) =ALPHA1 ( J ) -THETA ( J  )  115 

IF(ALPHA1 (J) >220.218,218  116 

220  ALPHA  1 ( J ) =6. 28 32+ ALPHA  1 ( J )  117 

GO  TO  218  118 

54  ANGLE ( J) = 1 • 570 797- THETA ( J) /2.-ALPHA1 ( J)  119 

ALPHA  1.  ( J )  =ALPHA1  (  J  J  +  THETAI J )  120 

IF  (ALPHAK  J  >-6.2832)  218.218*214  121 

214  ALPHA1 ( J ) = ALPHA 1 (J)— 6.2832  122 


218  X(J)=XLAST(J) -CHORD ( J I *S I NF ( ANGLE ( J  >  ) 
Y! J)=YLAST( J) -CHORD! J ) *COSF < ANGLE ( J) > 


XLAST ( J)=X( J)  125 

YLAST ( J ) » Y ( J )  126 

IF  (SENSE  SWITCH  2198.76  127 

98  PRINT  100.J.N.  SEC ( N. J )  .C 1 0 ( N. J )  128 

100  FORMAT ' 9H0  TARGET  I2.11HHAS  ENTEREDI 2 . 19HCURVED  LEG.  IT  HAS  F8.3.1  129 

XOHSEC.  LEFT..8H  CID=F2.0)  130 

PRINT  102.XLAST (J) .YLAST (J)  131 

10?  FORMAT ( 12H0LAST  PO INT=2F 1 0. 3 )  132 

PRINT  104.THETA(J> .CHORD ( J ) .ANGLE ( J ) . ALPHA 1 <J).X(J)»Y*J>  133 

104  FORMAT ( 8H  THETA=F 10. 3 . 7H  CH0RD*F10.3.7H  ANGLE=F 10.3  JH  ALPHA1=F10  1?4 

X.3.7H  XCOOR=r 10.3.7H  YCOOR*F10.3  )  135 

GO  TO  76  136 

50  I F { SEC ( N . J  >  >60,62.60  137 

60  THETAlf  J)=  SEC(N.J)*  RATETN ( N » J  >  138 

I F ( C ID ( N ♦ J ) >  64,66.64  139 

66  ANGLE! J)*THETAl(J)/2.+l. 5707965-ALPHA! (J)  140 

ALPHA  1 (J)=ALPHA1 (J)-THETAl (J>  141 

IF(ALPHA1 (J) >224,68,68  142 

224  ALPHA1 ( J ) =6 . 28 32+ALPHA 1 ( J)  143 

GO  TO  68  144 

64  ANGLE  (  J>=  1.5707965  -  THETAH  U)/2.  -ALPHAK  J)  145 


in-s 
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ALPHA  1 ( J)=ALPHA1( J)+THETA1 ( J)  146 

I F ( ALPHA 1 (J) -6 .2832) 68 *68*228  147 

228  ALPHA 1 ( J) =ALPHA1 ( J ) -6»2832  148 

68  CHORD (J)=2.*V(J)*SINF(THETAl(J)/2«)/RATETN(N*J)  149 

XPART  =  XPART+CHORD { J ) *S I NF ( ANGLE ( J ) )  150 

YPART  =  YPART+CHORD ( J ) *CO$F ( ANGLE  <  J }  )  151 

I  TAG ( J ) =  I  TAG { J )  +  1  152 

XLAST( J)=X( JJ-XPART  153 

YLAST(  JhYl  J)-YPART  154 

N  =  ITAG(J)  155 

SFCST(N*J)=SECST(N,J)-15.+SEC(N-1*J)+SECST<N-1*J)  156 

GD  TO  70  157 

62  I  TAG ( J  )  =  I  TAG  I J )  + 1  158 

N  =  I  TAG  (  J  )  159 

70  X( J)=XLAST( J)-( 15.-SEC(N-1»J)-SECST(N-1*J> ) *V ( J > *COSF ( ALPHA1 ( J) )  160 

Y( J)=YLAST( J)“(15.-SEC(N-1*J>-SECST(N-1*JJ)*V< J ) *SINF ( ALPHA1 ( J) )  161 

SEC ( N-l * J ) =0  162 

I F ( SENSE  SWITCH  2)108*76  163 

108  PRINT  1 10  » J  *N  164 

110  FORMAT ( 8H  TARGET  I2»15HHAS  ENTERED  THE  1 2 ♦ 13HST •  LINE  LEG.  )  165 

PRINT112. XPART, YPART, ALPHA1 (J) «CHORD(J) *XLAST(J) ,YLAST(J)  166 

112  FORMAT ( 8H  XPART  =  F8 . 3 . 8H  YPART=F8.3 ,9H  ALPHA1=F8.3»7H  CHORD=F8.3  167 

X »  7H  XL AST  =F8 • 3  » 7H  YLAST  =  F8.3)  168 

76  XLAST ( J ) =X ( J )  169 

YLAST ( J ) =Y ( J )  170 


XPART  =  0 
YPART=0 

I F ( SENSE  SWITCH1 ) 138*140 
138  PRINT310*X( J) *Y( J) 

310  FORMAT ( 2F16.8  ) 

140  WRITE  OUTPUT  TAPE  2 ♦ 38 *X ( J ) *Y ( J ) 

38  FORMAT ( 2E 16 .8  ) 

IF(M- 30)80*508*508 

508  I F ( Y ( J)-500. ) 509*509*510 

510  I F ( SQRTF ( ( X ( J ) -500. } **2+ ( Y I J )-500. ) **2 >-RMAX ( J ) )  80*509*509 

509  NT0R=NT0R+1 

IF (NTOR-NT )80*513*513 
80  CONTINUE 

IF(NF)90, 516*90 
516  NTOR=0 
M=M+1 
GO  TO  505 
90  CONTINUE 
513  CLOCK=-CLOCK 

WRITE  OUTPUT  TAPE  2*501. CLOCK 
PRINT  330 

330  FORMAT (52H  NORMAL  FRAME  HALT  REACHED.  SAVE  INFO*  THANKS  ROD 
PAUSE  1 

END (0*1*0 *0*1  ) 
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DIMENSION  STATEMENT 


y  (60), X  (60),  ALT  (60) 

rE£S/J5™',SEC  HEAD  <s'6°) 

G  (5,60),  CID  (5,60),  ITAG  (60) 

*last  (60>,  ylast  (60),  beta  (s  6o> 

RMAX  (60),  RMIN  (60),  RMIN2  (60)  ’ 

RATETN  (5,60),  THETA  (60), 

CHORD  (60) 

1 

BENOIX 

SYSTEMS 

PROGRAM 

ENVIRONMENT 

generator 

EQUIVALENCE 

EQUIVA 

NO  2053 

(BETA.G) 

(ALPHA 

ANGLE  (60),  THETA1  (60), 

Figure  2-2  Environmei 


fcSION  STATEMENT 


|),  ALT  (60) 

})),  SEC  (5,60),  HEAD  (5,60) 
|D  (5,60),  ITAC  (60) 

YLAST  (60),  BETA  (5,60) 
RMIN  (60),  RMIN2  (60) 

60),  THETA  (60), 

CHORD  (60) 

P),  THETA1  (60), 

ALPHA1  (60) 


NT=  NUMBER  OF  TARGETS 
NF=  NUMBER  OF  FRAMES 
ID  -  IDENTIFICATION  NO. 


EQUIVALENCE 

EQUIVALENCE 

READ  CDS 

WRITE  OUTPUT 

(BETA,G) 

(ALPHA!,  HEAD) 

NT  NF  ID 

tape  2 

NT,  ID 

.TS 

OUT 


FF 


READ  FLIGHT  PLAN 


O 

4GLE 


SECST  (3,[),  HEAD  (3,j), 
G  (3,i),  SECST  (4,|), 
HEAD  (4,|),  G  (4,j), 

CID  (3,|),  CID  (4,|), 
SECST  (5,|),  HEAD  (5,|) 


READ  FLIGHT  PLAN 


y  Zj  POSITIONS  OF  TARGETS 

ALT=  ALTITUDE  (IN  FEET) 
Vi  VELOCITY  IN  MILES/HR. 


SECST  (1,|),  hEAD  (1,[), 
G  (T,|),  SECST  (2,|), 
HEAD  (2,|),  G  (2,j), 

CID  (1,|),  CID  (2,|) 


READ  CDS 
X  (i),  Y  (|), 
ALT  (I),  V  (j) 


HzEV 


ITAG  (()«=  1 


RMAX  (|)  = _ 

1.23  AALTli) 


RMIN  (I)  -:  -  340.906  +\/  (340.906)2  +  ALT  (|)  + 

V  S  (6080  ) 
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& 


I 


FROM  PAGE  1 


106 


ANGLE  OF  BANK 


RATE  OF  TURN  IN 
RADIAN/SEC 


FROM  PAGE  5 


Figure 


RATE  OF  TURN  IN 


CHANGE  REST  OF  HEADINGS 


.C  (N,j)  = 

1))  -  (HEAD  (N,j))(.0174S33) 
ETN  (N,i) 


MEAD  (N  +  l,i)-  HEAD  (N,j) 


^  IF  ^ 

CID  (N,|)  =  0 


PRINT 
HEAD  (N.j) 


EC  (N,j)  =  2  -  (HEAD  (N,|)  -  HEAD  (N  +  1,j)  (.0174533) 
RATETN  <N'i> 


HEAD  (N  +  1,0  -  HEAD  (N,j) 


SEC  (N.j)  =  (HEAD  (N+J,i)  -  HEAD  (N,j))  (.0174533) 
RATETN  (N,|) 


FROM  PAGE  5 


GOTO  PAGE  3 
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6, 


Figure  2-2  (Cont.  ) 


*■ 


TARGET 

LOOP  36 


I5.  +  SECST  (N,i) 

0  ^ 


ANGLE  TO  TURN 
THROUGH  TO  COMPLETE 
A  FRAME 


ADD  PARTIAL  STRAIGHT 
LME  TO  LAST  POINT 


PAGE  4 


IF 

CID  (N,|) 
=  0 


CHORD  (j)  = 


NO  LEFT  TURN 


ALPHA1  (|)  >  2  77 


(i)  = 

■  PHA1  (j) 


Figure  2-2  (Cont.  ) 
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/) 


r 


r 


TO  COMPLETE  CURVED  COURSE 
ANGLE  LEFT  TO  TURN  THROUGH 


. 

N  =  ITAG  (i) 

XLAST  (()-  X  ([)  _  XPART 

ITAG  (|)  * 

XPART  =  XPART  +  CHORD  (|)  SIN 
YPART* YPART  +  CHORD  (|)  COJ 

YLAST  (|)=  Y  (|)«=  YPART 

ITAG  (|)+1 

M|  + 


D  COURSE 
<  THROUGH 


66 


NEW  APPROACH  ANGLE 


70 


1 

■ 

X  (|)  =  XLAST  (|)  -  (15.-SEC(N-1.I)  -  SECST(N-l.i)  V  (|)  COSF  (ALPHA1  (1) 

SEC  (N-  1,|) -0 

■ 

Y  «)  =  YLAST  (1)  -  (15.-SEC(N-1,|)  _  SECST  (H-I,i)  V{|)  SINF  (ALPHA  1  (j> 

1 

Figure  2-2  (Cont. ) 
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GO  TO  505 
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2.  3  MODIFICATION  TO  ACCEPT  NEW  ENVIRONMENT  GENERATOR 


2.3.1  FORTRAN  Lilting 

DIMENSION  LJTHX(50)»LTOTX(50) »LA2DEX ( 50 ) #NSIGNO ( 153 ) 

DIMENSION  NTTOAA ( 100) *DISTT  C 100) *NMST 1 100 ) *NMSA ( 100 ) *DI SMS ( 100 ) • 
1NHTT( 100) ,NHTA<100) ♦DISHT(100)»NFST( 100)*NFSA(100).DISFS(100) 
DIMENSION  DIST ( 31 ) *D I SH ( 31 ) 

DIMENSION  DIFX(lOO)  .DIFYUOO) 

DIMENSION  X(lOO)  »Y(  100)  .RMIN!  100)  .RMIN21 100)  .RMAXI 100)  .M-< 100) * 

1R0( 100) »R1( 100) ,R2( 1U0) * AZ { 100) 

DIMENSION  NRESOLI 100) «LJTHI50) «LAZ(50) »XAP( 100) »YAP( 100) *LAZDEL(50 
1) .LT0T(50) 

READ  5050  .MONTH »ND AY  *NYEAR 
5050  FORMAT (312) 

1500  DO  5333  1=1.50 
LTOTX ( I >  =0 

5333  LAZDEX ( I ) =0 
SUX=0. 

SUM=0. 

FRE 1=0. 

FRE2=0. 

FRED=0. 

FREQ=0. 

FRED2=0. 

FRE02=0. 

DXH=0» 

DXM=0, 

PRINT  845  .MONTH  »NDAY »NYEAR 
DO  8050  I  =1.31 
DISHt I )=0. 

8050  DIST ( I )— 0« 

5002  FORMAT (90H  TLO  8  PROGRAM 

XDATA.  BENDIX  SYSTEMS  DIVISION  704.) 

DO  5334  1=1.50 

5334  LJTHXU)=0 

DO  8000  1=1.153 
8000  NSIGNO(I)=0 
0=0. 

READ  350.K1 .K2 »K3 . K4 »K5 .K6 . K7 *K8 .K9 .K0 
350  FORMAT (1011) 

READ  3 .CASE .AZMUL .DELMUt .AZRES » DELRES.GAIN 
3  FORMAT { 6F 10 • 1 ) 

REWIND  2 

READ  INPUT  TAPE  2 . 1 1 50 »N T  ,NF .  I D 
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1150  FORMAT (315) 


DO  1151  I  * 1 ♦ N  T 

1151  READ  INPUT  ~-i?F  2  >  '  1  r  7  »RMAX  (I)«RMIN(I)«RMIN2(I) 

CLf  *.<L  =NF 
CLOCK$  =  U  « 

XX=CLOCKS 
PRINT  5002 
PRINT  700  *CASE  *NT 

700  FORMAT! 12H  CASE  NUMBERF8.0,4H  NTI4) 

PRINT  1 100 »CLOCKL  *  AZMUL » DELMUL  » AZ RES *DELRES» GAIN 
1100  FORMAT ( ( 1 6H  CL0CKLF5 • 0 » 6H  A2MULF8.6»7H  DELMULF8 • 6  »6H  AZRE 

1SF8.7,7H  DELRESF8.6,5H  GAINF8.6)//) 

PRINT  701 

701  FORMAT ( ( 1 18H  CLOCK  K  NSUMM1  NSUMM2  NSUMM3  NMS  NHT  NFS  NFARAT  NHT 
1RAT  NMSRAT  NDTRAT  K0UNT6  KOUN) ''  K0UNT8  K0UNT5  KNTSUM  K0UNT9  NDR 

2  )//) 

400  FORMAT ( 5F10.2  ) 
li:>2  FORMAT  (  3E16.8  ) 

C0NV=57. 29577 
X0=500. 

Y0=500. 

X 1 =456 • 6985 
X2  =  475  « 

Y1 =475 • 

Y2  =  5&3 • 30 1 5 

KK=0 

K  K 1  =0 

KK2=0 

KK3=0 

KK4=0 

KK5=0 

KK6=0 

KK7=0 

KK8  =  0 

AK9=0 • 

AKl =0 • 

599  FORMAT ( F6 • 0 ) 

7  READ  INPUT  TAPE  2, 599, CLOCK 
I F ( CLOCK )  301*1177, 11 77 
1177  DO  1153  1=1, NT 

1153  READ  INPUT  TAPE  2,  1154*Xm*Y(I) 

1154  FORMAT ( 2E  16 • 8 ) 

KOUNT 1 =0 
KOUNT2=0 
K0UNT3=0 
K0UNT4=0 
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KOUNT5=0 
KOUNT6=0 
K0UNT7=0 
K0UNT8=0 
K0UNT9=0 
NSUMM1=0 
NSUMM2  =0 
NSUMM3=0 
SUMLO=0. 

SUMO  =0. 

SUML1=0. 

SUML2=0. 

DO  50  1*1, NT 
DIFX(  I  )  *=X  (  1  )-XO 
D I FY ( I ) =Y ( I )-YO 

RO ( I ) =SORTF ( D I FX  < I ) **2+D I FY ( I) **2 ) 
IF(R0( I)-RMAX(I  )  )  9,9*8 
9  IF (RO ( I )-RMlN ( I ) )  500,500*501 

500  SUMLO=SUMLO+RMIN2( I> 

GO  TO  502 

501  SUMLO=SUMLO+1 ,/RO( I )**2 

502  SUMO=SUMO+ 1 • /RO ( I ) **2 

8  R 1  f  I)=SQRTFHXm-Xl)**2  +  (Y(!)-Yl)**2) 

IF(Rim-RMAXH)  )  11,11,650 


11  I F ( R 1 C I )-RMJN ( I ) )  652,651,651 

651  SUML 1 =SUML1 +1 • /R 1 { I ) **2 
GO  TO  650 

652  SUML1*SUML1+RMIN2 (I  ) 

650  CONTINUE 

13  R2(  I  )=SQRTF(  (XU  ) -X2  )  **2  +  <  Y  (  D-Y2  )  **2  ) 

1 F ( R2 ( I I-RMAX (II)  15,15,660 
15  IF(R2( I )-RMIN( I U  662,661,661 

661  5UML2=SUML2+1 ,/R2(I)**2 
GO  TO  660 

662  SUML2=SUML2+RMIN2( I) 

660  CONTINUE 

IFfDTFYUn  18,18,19 

18  M ( I ) =3 
NSUMM3*NSUMM3+1 
GO  TO  50 

19  I F ( RO ( I ) -RMAX ( I ) )  40,40,22 

40  IF ( DIFX ( I  1)20,23,23 

20  IF ( R1 ( I ) -RMAX ( I ) )  21,21,22 

22  M ( I ) =4 

GO  TO  50 

21  M  (  I  )  =  1 
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NSUMM1 =NSUMM1+1 
GO  TO  26 

23  IF ( R2 ( I) -RMAX ( I ) )  2 5,25,22 

25  MCI ) *2 
NSUMM2=NSUMM2+1 

26  AZ ( I ) =ATN1F ( DI FY( I) ,-DIFX (  I  M 

50  CONTINUE 

DO  56  1=1*50 
IJTH( I)=0 
LA2 ( I ) =0 
LAZPEL (  I  )  =0 
56  LTOT ( I ) =0 

K=0 

L INDX=0 
DO  100  J= 1 »NT 
I F ( M ( J  )  )  100,58,58 
58  I F ( XABSF ( M  (  J  ) ) -2 )  60, 60*100 

60  L=0 

DO  76  1  =  1, NT 

I F ( XABSF ( M ( I ) ) -XABSF (M(J)  )  )  76*62.76 
6?  IFUABSF(A2(J)-AZm  M-AZRES)  64,64,76 
64  L=L+1 

NRESOL ( L ) = I 

76  CONTINUE 

72  SIDLO=SUMO 

AM8  =  0 • 

AMBL=0, 

74  IFCXABSF(MCJ) )-l)  75,71*75 

75  RAD0MA=5UML2 
GO  TO  77 

71  RADOMA=SUML 1 

77  DO  88  1  =  1, L 
KBAS=NRESOL( I ) 

FRACT  =  1  •  /RO  ( KBAS )  **'! 

FL J= 1 » -ABSF ( (AZ( J)-AZ(KBAS) J/AZRES) 

AMB=AMB+FLJ*FRACT 

I F ( FRACT-RMIN2 { KBAS ) )  275,275,274 

274  FRACT=RMIN2 ( KBAS ) 

275  AMBL=AMBL+FLJ*FRACT 

I F ( J-KBAS )  88,276,88 

276  TARGML=FRACT 

I F ( XABSF { M ( J  > ) -1 )  83,85,83 

83  IF ( R2 ( KBAS ) -RMI N ( KBAS ) )  680,680,681 

680  RANGMA=RMIN ( KBAS ) **2 
GO  TO  682 

681  RANGMA=R2 { KBAS ) **2 
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682  CONTINUE 

DELTA=RO(J)-R2(J) 

GO  TO  88 

85  I  F  (  R 1  {  KBAS  )„-RM I  N  (  K8AS  )  )  690*690*691 

690  RANGMA=RM IN  (  KBAS 1 **2 
GO  TO  692 

691  RANGMA=R1 ( KBAS ) **2 

692  CONTINUE 
DELTA=RO( J)-R1 ( J) 

88  CONTINUE 

IF{ AMBL-(SUMO-AMB)*GA IN 14000* 89*89 
4000  K0UNT9=K0UNT9+1 
GO  TO  100 

89  AOS  I G0= ( ( SUMO-AMB ) *GA I N+AMBL-TARGML ) /TARGML 
AOS  I GA= ( RANGMA*RADOMA ) -1 • 

SIGNORI ./ (2.+AOSIGO+AOSIGA+AOSIGO*AOSIGA) 
NS=SIGNO*500. 

NS=NS+1 

IFINS-152)  8002*8002*8001 

8001  NSIGNOI 152) =NS I GNO 1 1 52 )  +  1 
GO  TO  8003 

8002  NSIGN0(NS)=NSIGN0(NS)+1 

8003  CONTINUE 
IFISIGN0-.0112)  99,101,101 

101  K0UNT1=K0UNT1+1 
GO  TO  112 

99  IFfSIGNO-. 00841 )  103*102*102 

102  K0UNT2=K0UNT2+1 
IF{RAM2BF(0)-.6l  112,250,250 

103  IFISIGNO-. 00631 )  105,104,104 

104  KOUNT3=KOUNT3+l 
IF(RAM2BF(0)-*2)  112*250,250 

105  K0UNT4=K0UNT4+1 
250  CONTINUE 

GO  TO  100 

112  KOUNT5*KOUNT5+l 
IF(l-l)  113,113,114 

114  K0UNT6=K0UNT6+1 
L I NDX  =  L I NDX  +  1 

I F { L I NDX-50 )  73,73,122 
73  LJTH(LINDX)  =J 

LJTHX(L)=LJTHX{L)+1 
LAZ(LINDX)  =L  ' 

GO  TO  122 

113  A2T=AZ  (J> 

115  ANO= ( RAM28F (0 ) -«  5 ) *AZMUL 
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A2T  =  A2  T +ANO 

BN0=(RAM2BF(0)-.5)*DELMUL 
DELTA=DELTA+  BNO 
I F ( XABSF ( M ( J ) ) -1 )  116.116*117 

116  ANGLE=A2T+. 5235938 
GO  TO  118 

117  ANGLE=A2T-1. 0471976 

118  RANGE  =(2500«-D£LTA**2)/(100»*CQSF( ANGLE ) -2«*DELTA 1 
1298  CONTINUE 

K  =  K  +  1 

120  XAP(K)=X0-RANGF*C0SF(A2T) 

121  YAP  { K,  1  =YO+RANGE*S  I NF  ( A2T  ) 

GO  TO  100 

122  NEE’.  =  0 

DO  130  I =1 *L 
KBAS  =  NRESOL( I  ) 

I F ( XABSF  <  M ( J ) } -1 )  123.123.124 

124  I F ( A8SF ( R0( KB AS 1 -R2 ( KBAS l-DELTA 1 -DELRES )  127.127.130 

123  IF(ABSF(R0<K8AS)-R1UBAS)-DELTA)-DELRES)  127.127.130 
127  NEEL=NEEL+1 

M(KBAS)=-M(KBAS) 

NRE  SOL (NFEL)=NRESOL{ I ) 

130  CONTINUE 

LAZDFX(NFFL)=LAZUEX(NEEL)+1 
I F ( NFFL-1 )  517,517.132 
517  <OUNT8=KOUNT8+1 

IFILINDX-50 >7000,7000, 113 
7000  LAZDFL ( L I NDX 1 = 1 
LTOT ( L I NDX 1 = 1 
GO  TO  113 
132  KLOO= 1 

IFILINDX-501133.133.134 

133  LAZDEL(LINDX)=NEEL 

134  I F ( NRE  SOL ( KLOO ) - J )  135.150,135 

135  I ND=NRESOL { KLOO 1 

I F ( XABSF ( M ( J 1 ) -1 )  136,136,137 

136  ADFLT  A=RO ( I ND ) -R 1 ( IND 1 
C-0  TO  140 

137  ADELTA=RO ( IND 1 -R2 ( IND) 

140  DO  149  1=1, NT 
IF(MII))  149,777,777 

777  I F ( XABSF ( M ( I  1 1 -XABSF <M(J)  1)149,141,149 

141  IF(ABSF(AZ(I l-AZ(KLOO) l-AZRES)  142,142,149 

142  I F ( XABSF ( M { J ) 1 -1 )  146,146,143 

146  IFIABSFIROI I  1  — R 1 { I  1 -ADEL T A  1 -DELRES 1  144,144,149 
144  NEFL=NEEL+1 
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I F ( ABSF (RO ( I )  -R2  ( I ) -ADEL T A ) -DELRES )  144 ♦ 144 ,149 

CONTINUE 

KLOO=KLOO+1 

I F  (  KLOO-NEEL  )  134,134, 152 
LTOTX (NEEL )=LTOTX( NEEL )+l 
IF(LINDX-50)155, 155,156 
LTOT (LINDX)=NEEL 
$UMAZ=0. 

DENOM=NEEL 
KOUNT7=KOUNT7+NEEL 
A2T=0 , 

DO  160  1=1, NEEL 
KBAS=NRESOL(I ) 

IF(AZ(KBAS)-A2T)  160*160,277 
A2T =AZ ( KBAS ) 

I F ( XABSF ( M ( J ) )-l ) 278 ,278*279 
DELTA=RO ( KBAS ) -R 1 ( KBAS) 

GO  TO  160 

DELTA=RO ( KBAS ) -R2 ( KBAS ) 

CONTINUE 
GO  TO  115 
CONTINUE 
NMS  =  0 
NHT  =  0 
NFS  =  0 

IF(K)570,571 ,570 
DO  572  I  TR  =  1 *NT 
NMS=NMS+1 
NMST ( NMS )  =  I  TR 
NMSA ( NMS ) =-0 
DISMS(NMS)=-0 
GO  TO  575 
DO  168  I TR=1 ,NT 
I  AP  =  1 

NTTOAA ( I TR  )  =1 
XTRU=X( ITR) 

YTRU=Y( ITR) 

D I FRX=ABSF ( XTRU-XAP ( IAP) ) 

DIFRY=ABSF( YTRU-YAP ( IAP) ) 
D'ISSQ=DIFRY**2+DIFRX**2 
DO  166  I  AP=2 » K 
TD I  FRX=ABSF( XTRU-XAP ( IAP ) ) 

TD I  FRY  =  ABSF (YTRU-YAP ( IAP ) ) 
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I  F ( TD I FRX-D I FRX )  165,164,164 
IF(TDIFRY-D I  FRY) 165,166,166 
TD!SSQ=TDIFRX**2+TDIFRY**2 
I F ( TD I SSO-D I SSO )  167,166,166 


Ml 


T 


T 


V 


167  NTTOAA  ( 1  TR  )  =  I A 
D I SSQ=TD I SSQ 

DIFRX  ■  TD I FRX 
D I FRY=TDI FRY 
166  CONTINUE 

168  0 1 STT ( I TR ) =SQRTF { D  l  SSQ ) 

171  DO  178  I AP= 1 « K 
I  TR  =  1 

NATOTT  =  1 
YAPP=YAP( IAP) 

XAPP  =  X AP  f I A P ) 

D I FRX  =ABSF ( X ( ITRl-XAPP) 

0 1 FRY=ABSF ( Y ( ITRl-YAPP) 
DISSQ=DiFRX**2+DIFRY**2 

172  DO  175  ITR=2»NT 

TD I FRX  =ARSF ( X ( ITR)-XAPP) 

TD I FRy  =  A3SF { Y ( 1 TR ) -YAPP  ) 

IF { TDI FRX-DI FRX  )  169,170*170 
170  IFITDI FRY -DIFRY)  169,175*175 

169  TDISSQ=TDIFRX**?+TDIFRY**2 

I F ( TD I SSO-D ISSO)  173,175,175 

173  NATOTT  =  I TR 

D I SSQ=  TD I SSO 
D I FRX=TD I FRX 
D ! FRY=TDI FRY 

175  CONTINUE 

D I  ST  A  =  SQRTF ( D I SSQ ) 

I F { XABSF (NTTOAA (NATOTT ) ) - I AP )  176,177,176 

177  NHT=NHT+1 

NHTT ( NHT ) =NATOTT 

NHT  A { NHT )  =  I AP 

DISHT (NHT )  =  D I STT (NATOTT) 

MHD=DI SHT (NHT )*4» 

MHD=MHD+1 

I F ( MHD-3 1 )  1404,1405,1405 

1405  DISH(31)=DISH(31)+1. 

GO  TO  1406 

1404  D I SH { MHD ) =D 1 SH ( MHD ) + 1 • 

1406  CONTINUE 

NTTOAA ( NATOTT ) =-NTTOAA ( NATOTT ) 

GO  TO  178 

176  NF^=NFS+ 1 
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178  CONTINUE 

DO  440  I  TR= 1 ,NT 

IF INTTOAAl I TR ) )  440,440,442 
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442  NMS=NMS+1 

NMSTINMS)=ITR 
NMSA ( NMS ) =NTTOAA ( I TR ) 

D I  SMS ( NMS ) =D I STT ( ITR) 

MOS  =  D I  SMS ( NMS ) /5 • 

MDS=MDS+ 1 

I F ( MDS-3 1 )  1400*1401*1401 

1401  DIST(31)=DIST(31)+1. 

GO  TO  1402 

1400  DIST ( MDS ) =D I  ST (MDS ) + 1 • 

1402  CONTINUE 
440  CONTINUE 
575  CONTINUE 

NFARAT=(1000*NFS)/K 
NMSRAT=( 1000*NMS)/NT 
NDTRAT=(1000*K)/NT 
NHTRAT  =  ( 1 000*NHT ) /K 

KNTSUM=( 10*KOUNT1+6*KOUNT2+2*KOUNT3) 

NDR= ( 1000*0 /(NSUMM1+NSUMM2) 

ANDR=NDR 

ANDR=ANDR/1000. 

AND2=ANDR  **2 

aki*aki+and2 

XX*XX+1. 

IF(XX-(51.+CL0CKS) )844»843»844 

843  PRINT  8 4S  * MONTH »NOAY»NVEAR 
XX-CLOCKS 

PRINT  5002 
PRINT  700 »CASE  ♦  NT 
845  FORMAT ( 108H 1 

1  DATE  RUNI3*1H/I2*1H/I 

22) 

PRINT  701 

844  CONTINUE 

PRINT  702 ♦CLOCK »K#NSUMM1 .NSUMM2 *NSUMM3*NMS*NHT ♦NFSfNFARAT ♦NHTRAT ♦ 
1NMSRAT  ♦NDTRAT  *KOUNT 6 ♦KOUNT  7 ♦KOUNT 8 ♦K0UNT5 ♦KNT SUM ♦KOUNT 9 ♦NDR 
KK=KK+K 
KK2=KK2+NSUMM1 
KK3=KK3+NSUMM2 
KK4=KK4+NMS 
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I F ( K3 )  8075  ,80  75*8076 
8076  CONTINUE 

WRITE  OUTPUT  TAPE  4,900, CASE »CL0CK »NT * K 

900  FORMAT  (Ml. 6»F10, 0,215  I 
00  901  1  =  1, NT 

901  WRITE  OUTPUT  TAPE  4,902  ,X ( I ) *Y (I  ) 

902  FORMAT (2F15. 4  ) 

I r ( < )  600u, 6001 ,6000 

6000  DO  903  1  =  1  , K 

905  WRITE  OUTPUT  TAPE  4 ♦ 902 , XAP ( I) , YAP ( I  ) 

6001  CONTINUE 
8v/7  5  CONTINUE 

3  59  I F ( <6  )  361,361,362 

362  KEN  =  6 

IF(NMS)  2100,2200,2100 

2100  DO  906  1=1, NMS 

906  WRITE  OUTPUT  TAPE  3 ,907 , KEN, CASE , CLOCK *NMST ( I ) »NMSA ( I ) »D I  SMS ( I ) 
2200  CONTINUE 

361  IF ( <7  )  363,363,364 

364  K I:  N  =  7 

IF(NHT)  2101,2102,2101 

2101  DO  908  1=1, NHT 
I S  =  NHT A ( I  ) 

ID=NhTT( I  ) 

908  WRITE  OUTPUT  TAPE  3,907 ,KEN , CASE  » CLOCK » NHT T ( I ) »NHTA (  I  )  »DI SHT  (  I  )  » 

IX ( ID) ,Y( ID) »XAP( IS) ,YAP( IS) 

2102  CONTINUE 

363  I F ( K8  )  365,365,366 

366  KEN  =  8 

IF(NFS)  2103,2104,2103 

2103  DO  909  I  =  1  ♦  N F S 

909  WRITE  OUTPUT  TAPE  3,907  » KEN » CASE  » CLOCK ,NF ST ( I )»NFSA( I ) ,DI SF  S ( I ) 

365  CONTINUE 

2104  CONTINUE 
GO  TO  7 

301  KEN  =  0 

5555  FORMAT ( 4H  TOT  I  6  •  I  5 , 1  6 , 1 1 3, 2  I  5 , I  3 1 , I  14, F28 #3  ) 

PRINT  5555»KK»KK2*KK3»KK4,KK5»KK6»KK7,KK8»AK9 
PRINT  6500, AK1 
6500  FORMA  T ( FI  20.6 ) 
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PRINT  845, MONTH, NDAY,NYEAR 
PRINT  700, CASE, NT 
PRINT  5002 
PRINT  1666 

1666  FORMAT { 56H  HITS  MISSES 

1  ) 
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PRINT  1667 

1667  FORMAT (70H  LOWER  UPPER  NUMBER  STD  FREQ  LOWER  UPPER  NUM 

1BER  STD  FREQ  ) 

1408  FORMAT ( 37H  HITS  MISSES  ) 

1409  FORMAT (46H  LOWER  UPPER  NUMBER  LOWER  UPPER  NUMBER  ) 

XLOW=0. 

H  I  GH  =  5  • 

XL.O  =  0  • 

H  I  G  =  ♦  2  5 

DO  1668  1=1,31 
SUX  =  SUX+D  1ST (  I  ) 

1668  SUM=SUM+DISH( I) 

SUX=1CC0./SUX 
SUM  = 1000* /SUM 
DO  1411  1=1,31 
LXX=D I SH ( I ) #SUM+ • 5 
LYY=DI ST  C I ) *SUX  + • 5 

PRINT  1410,XL0,HIG,DISH( I ) , LXX ,XLOW * H I GH , D I  ST ( I ) , LY Y 
FREQ=(HlG-XL0)/2.+XL0 
r  RED= ( HlGH-XLOW )/2»+XL0w 
FREQ2=FREQ2+FREQ**2*D I SH { I  ) 

FRED2=FRE02+FRED**2*DIST( I ) 

FRE1=FRE1+FREQ*DI SHI  I ) 

FRE2=FRt2+FRED*DIST( 1  ) 

DXH=DXH+D I  SHI  I  ) 

DXM=DXM+D I  ST ( I  ) 

XLOW=H I GH 
H I GH=H I GH  +  5  • 

XLO=H I G 

1411  H I G  —  H I G+  •  25 

1410  FORMAT (F 10.2* F7. 2, F8. 0,1 10*F10.0,F7*0,F8#0*I10) 

S IGMAH=SQRTF ( FREQ2/DXH- ( FRE 1/DXH ) *#2 ) 

SIGMAM=SQRTF( FRED2/DXM- < FRE2/DXM ) **2 ) 

BARH=FREi/DXH 

BARM=FRE2/DXM 

PRINT  1669 , S I GMAH , S I GMAM  »BARH»BARM 

1669  FORMAT ( 13H  SIGMA  HITF8.3,11H  SIGMA  MISSF8.3»9H  MEAN  HITF9.3,10H 
1  MEAN  MISSF9«3) 

I  F { <0 )  369,369,370 

FORTRAN  LISTING  12 

370  H I GH=  «  002 

PRINT  845, MONTH, NDAY,NYEAR 
500C  FORMAT  (lHl) 

PRINT  5002 
PRINT  700, CASE, NT 
PRINT  450 

450  FORMAT ( 46M  FREQUENCY  DISTRIBUTION  SIGNAL  TO  NOISE  ) 


HI-S 
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PRINT  451 

451  F  GRMAT ( 42H  LIMITS  LIMITS  ) 

PRINT  452 

45?  FORMAT  1 86H  LOWER  UPPER  NUMBER  LOWER  UPPER  NUMBER 

1  LOWER  UPPER  NUMBER  ) 

XLOW= • 0 
XLOWR=. 102 
XLO=  »204 
XH I G= • 206 
HIGHR=. 104 
DO  453  1=1,51 

PRINT  454, XLOW, HIGH, NS1 GNO ( I  1 , XLOWR , H I GHR ,NS I GNO ( I +5 1 ) * XLO , XH I G , 
1NSIGNOI 1+101 ) 

4  54  FORMAT (F6.3,F9.3» I  8 , F 1 3 . 3 , F9 . 3 , I  8 , F 1 3. 3 , F9 . 3 , 18  ) 

XLO=XH I G 
XH I G=XH I G+ • 002 

8  88  FORMAT ( F6 . 1 , F9 . 3 , 1  8 , F 1 3 . 3 , F9.3 , 18) 

XL0W=HIGH 
HIGH=HIGH+.C02 
XL0WR=H I GHR 

453  HlGHR=HIGHR+.002 
3fa9  CONTINUE 

465  FORMAT (17H  DURING  THIS  RAIDI4,53H  AZIMUTH  UNRESOLVE  SECTORS  WERE  r 
XOUND  WHICH  CONTA I  NED  I  5 , 8H  TARGETS) 

IF(K1)  460,460,461 

461  PRINT  845, MONTH, NDAY,NVEAR 
PRINT  700, CASE, NT 

PRINT  472 
LL 1  =  0 
L  L  2  =  0 
LL3  =  0 

DO  464  1=2,50 
LL1 =LL 1  +  L JTHX ( I  ) 

LL2  =  LL2+LA7DEX ( I  ) 

5556  LL3  =  LL3+LTOTX ( I  ) 

464  PRINT  462 , 1  ,LJTHX (  I  )  ,LAZDEX ( I ) ,LTOTX ( I  )  ,  I 
PRINT  5557, LL3  ,LL2»LL3 

472  FORMAT! 5 7H  NO  TARGETS  AZ  UNR  AZ+DEL  AZ  +  DEL+OTHt: RS  NO  TARGE! 
IS  ) 

FORTRAN  LISTING  13 

462  FORMAT (1 12*219, 1  15, 19) 

46^-  CONTINUE 

PAUSE  1 
GO  TO  1500 

907  FORMAT! I  5 ,F 10 . 3 ,F 5 .0 ,2  I  8 , 5F8. 2 ) 

904  FORMAT! 15, F10, 5, F5, 0,518) 

END(0, 1 ,1 ,0,1  ) 
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III-S 


I 


1500 


DIMENSION  STATEMENTS 


NTTOAA  (100),  DISTT  (100),  NMST  (100),  X  (100), 
NMSA  (100),  DISMS  (100),  NHTT  (100),  Y  (100), 
NHTA  (100),  DISHT  (100),  NFST  (100),  M  (100), 
NFS  A  (100),  DISFS  (100),  DIFX  (100),  RO  (100), 
DIFY  (100),  R1  (100),  RMAX  (100),  RM1N  (100), 
RM1N2  (100),  R2  (100),  AZ  (100),  NRESOL  (100), 
NSICNO  (153),  UTH  (100),  LAZ  (50),  XAP  (100), 
YAP  (100),  LAZDEL  (50),  LTOT  (50), 

UTHX  (50),  LTOTX  (50),  LAXDEX  (50), 

DIST  (50),  DISH  (50) 


READ  5050 
MONTH, NDAY.NYEAR 


1151 


PRINT  5002 
PRINT  700,  CASE.NT 
PRINT  1100,  CLOCKL, 
AZMUL,  "ELMUL, 
AZRES,  DELRES, 

CAIN 

PRINT  701 


/ - 

CLOCKL  =  NF 

R1T2,  1152 

CLOCKS  =  0, 

RMAX  (1),  RM1N  (1) 

XX  =  0 

RM1N2  (1) 

/  \ 

«  f  DO  1151  V-*. 

i  *=  i,nt  r * 


R1T  2,  1150 
NT,N?,ID 


READ  3  CASE 
A2MUL,  DELMU 
AZRES,  DELRE 


1177 


1153 


CONV  =  57.29577 
XO  «  500 
YO  «  500 
XI  456.6985 
X2  *=  475 
Y1~475 
Y2  =  543.3015 
KK=0  KK2  •»  0 
KK3=*0  KK5  — 0 
KK4  =  0  KK7  =  0 
KK6=*0  KK8-0 
AK9  =  0  AK1  =  0 


R1T  2,1154 
X  (I),  Y(l) 


GO  TO 
301 

PAGE  9 


KOUNT1  - 
KOUNT2 = 
KOUNT3  = 
KOUNT4 = 
KOUNT5= 
KOUNT6 = 
KOUNT7  * 
KOUNT8- 
KOUNT9 = 
NSUMM1  = 
NSUMM2  = 
NSUMM3  = 
SUML0  = 
SUMO  »  0 
SUML1  = 
SUML2  = 


Figure  2-3  Acc 
Pi 


T 


DO  1151 
I  *=  1,NT 


DO  8000 
I  *=1,153 


DO  1153 
1  =  1,  NT 


R1T  2,1154 
X  (I).  Y(l) 


KOUNT1  =  0 
KOUNT2  =  0 
KOUNT3  =  0 
KOUNT4  =  0 
KOUNT5=  0 
KOUNT6  =  0 
KOUNT7  *=  0 
KOUNT8  =  0 
KOUNT9  =  0 
NSUMM1  =  0 
NSUMM2  =  0 
NSUMM3  =  0 
SUMLO  =  0 
SUM0= 0 
SUML1  =  0 
SUML2  =  0 


GO  TO 
PAGE  2 
A 


Figure  2-3  Accept  New  Environment  Generator 
Program  Flow  Diagram 


2-77/2-78 


I 


I 


I 


FROM  B 
PAGE  2 


GO  TO  TOO 


RADOMA  = 
SUML2 


Figure  2-3  (Cont.  ) 
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t 


FROM 
PAGE  3 


DETECTED 


112 


KOUNT5  =  KOUNT5  +  1 


A2  UNRESOLVED  CLUST 


K=K  +  ll-<- 


XAP  =  XO - 
RANGE  COS(A2T) 


YAP=  YO  + 
RANGE  SIN  (A2T) 


LA2DEX  (NEEL)  = 
LA2DEx  (NEEL)+  1 


K 


NEEL=  NEEL  +  1 
HRESOL  (NEEL)  = 
NRESOL  (I) 

M  (KBAS)  =  _  M(KBAS) 
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LTOT  (LINDX)  = 
NEEL 

156  |"°  0P 

CONTINUE 


KOUNT7  = 
KOUNT7  +  NEEL 


T 


f 


NEAREST  APPARENT  TO 


IDIFRX=|  X  (ITR)  -  XAPP 
DIFRY  =1  Y  (ITR)  -  YAPP 


ITR  =  t 
NATOTT  =  1 
XAPP  =  XAP  (1AP) 
YAPP  =■  YAP  (UP) 


DO  178 
IAP  =  I,K 


DISTT  (ITR) 
DISSQK 


CONTINUE 


NTTOAA  (ITR) 
DISSQ  =  TDISSl 
DIFRX  =  TDIFf 
DIFRY  =  TDIFf 


DISSQ  = 

difrx2  + 

FROM 

P 

DIFRY2 

DO  175 
ITR  =  2, NT 


ITDIFRX  =  X(ITR)  -  XAPP  I 
TDIFRY  =  Y  (ITR)- YAPP 


P^IS 

TDIFRX 

> 

DIFRX  . 


IS  ^ 
TDIFRY 

< 

.  DIFRY  . 


TDISSQ  = 


TDIFRX  + 


NEAREST  TRUE  TO  EACH  APPARENT 


—  / 


DO  u*  '\-*- 
/  I  ITR  =  1,NT 

, 

)i 


1AP=  1 

NTTOAA  (ITR)  =  1 
XTRU  =  X  (ITR) 
YTRU  =  Y  (ITR) 


DIFRX  =  |  XTRU  -  XAP  <IAP)| 
DIFRY  =|YTRU  -YAP(IAP)  | 


DISSQ  = 
DIFRX2  + 
DIFRY2 


>-  |  DO  166  | 

IAP  =  2,K  I 


NMS  =  NMS  4  1 
NMST  (NMS)=  ITR 
NMSA  (NMS)-  -0 
DISMS  (NMS)=  -0 


1 


ITDIFRX  ■  XTRU  -  XAP  (IAP) 
TDI  FRY  =  YTRU  -  YAP  (IAP) 


NEAREST  APPARENT  TO  EACH  TRUE 


NTTOAA  (ITR)  =  |AP 
DISSQ  =  TDISSQ 
DIFRX  =  TDIFRX 
DIFRY  =  TDIFRY 


173 


1 69 

TDISSQ  = 

^^TDI|S5Q>>NsN0 

NATOTT  =  ITR 
DISSQ  =  TDISSQ 

TDIFRX% 

DIFRX=  TDIFRX 

TDIFRY2 

DISSO^^ 

DIFRY  =  TDIFRY 

175 


CONTINUE 

T - 1 


YES 


J 


GO  TO 
PAGE  7 


._l 


NEAREST  TRUE  TO  EACH  APPARENT 


Figure  2-3  (Cont. ) 
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mi 

i 


FROM 

PAGE 

6 


GO  TO 
PAGE  S 


I  =  AKI  + 
AND2 


AND2  = 
ANDR2 


ANDR  = 
ANDR/1000 


T 


HIT  FREQUENCY  DISTRIBUTION 


IS 

MHD  >  31 


DISH(MHD)  = 

DISH  (MHD)  +  1 


CONTINUE 


NTTOAA  (NATOTT)  « 
-NTTOAA  (NATOTT) 


1 


~7 


—  A 


FROM 
PAGE  7 

0 


XX  = 

.CLOCKS  +  51 


WOT  4,902 
XAP  (l)YAP  (I) 


CONTINUE 

IS  T  NO 
CONTINUE 

"77T 


TESTING  FOR  END  OF  PAGE 


362 

KEN  =6 


WRITING  SPECIAL  TAPES 


WOT4,  902 
X  (I),  Y  (I) 


IS  ^ 
NMS  =  0 


DO  901 
I  =  1.  NT 


WOT  4,900  I  NO 

CASE,  CLOCK  L*. 
NT,K  | 


NO/  D0  906 
“**1  I  =  1,  NMS 


WOT  3,907 
KEN,  CASE 
CLOCK,  NMST  <1) 
NMSA  (I)  DISMS  (|) 


2200  | 

"  ■  .  » 

CONTINUE 


PAG? 9  V  C0HT'NUE 


365 

CONTINUE 
NO  ]  OP 


s 

WOT  3,907 

KEN,  CASE 

CLOCK,  NFST  (1) 
NFSA  (1),  DISFS  (1) 

^  f  DO  909  ^  HJ> 

1  =1,  NFS  1  V^NFS 

YES 

n — 


NORMAL  FRAME  OUTPUT 


PRINT  701 
HEADER 


CONTINUE 


|  PRINT  702 

CLOCK,  K,  NSUMM1 
N$UMM2,NSUMM3, 
NMS,  NHT,  NFS 
NFARAT,  NHTRAT 
NMSRAT,  NDTRAT 
KOUNT6.KOUNT7 

kounts.kounts 

KNTSUM,  KOUNT9 
NDR 


WOT  4,900  1  no 

CASE,  CLOCK  I  -ft 
NT,K  I 


KK  =  KK  +  1 
KK2  =  KK2+NSUMM1 
KK3  =  KK3+NSUMM2 
KK4  =  KK4+NMS 
KKS  =  KK5+NHT 
KKS  =  KK6+NFS 
KK7  =  KK7+KOUNT6 
KK*  =  KK8+KOUNTS 
AK9  =  AK9+ANDR 

FFF1=FFF1+FFF3  , 
FFF2=FFF2+(FFF3)2 


IS  =  NHTA  (I) 
ID=  NHTT  (I) 


IS 

.NFS  =  0 


WOT  3,907 
KEN,  CASE, 
CLOCK,  NHTT  (I) 
NHTA  (|)  DISHT  (I) 
X  (ID),  r  (ID) 

XAP  (IS)  YAP  (IS) 


Figure  2-3  (Cont.  ) 
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I 


~  f 


TEST  IF  ALL  FRAMES  ARE  DONE 


FROM  PAGE  8 


CLOCK = 
CLOCK +  1 


IS  ^ 
CLOCK> 
CLOCKL 


DO  998 
I  =  1,NT 


IX  (l)=X  (D+DELX  (ll 
Y  (l)=Y  (D+DELY  (ll 


GO  TO  PAGE  10 


„  FRAMES  ARE  DONE 


pc  =$UX+ 
DIST  (I) 
M=  SUM+ 
DISH  (I) 


1 

I”  +C  y~ 


XLOW— 0 
HI  GH~  5 
XLO=  0 
HIG=  .25 


PRINT  1667 
HEADER 


■BBH 

ngH 

FRED2=  FRED2 
*) 

FRE1=  FRE1 

FRE2  =  FRE2  j 

+  FRED* • 

DIST  (1) 

+  FREQ-DISH  (1) 

+  FRED-DIST  (1)  1 

I* 


DXH=  DXH+ 
DISH  (I) 
DXM-  DXM  + 
DIST  (I) 


XLOW  =  HIGH 
HIGH  =  HIGH +  .5 
XLO  =  HIG 


- 1 

1411 

HIG 

HIG 

F  .25 

GO  TO  PAGE  10 


CK 


BARH  = 
FRE1/DXH 
BARM  = 
FRE2/DXM 


SIGMAH  = 

SIGMAM  = 

J 

FREQ2/DXH-, 

FREQ2/DXM» 

(FREl/DXHr 

(FRE2/DXM)Z 

Figure  Z-3  (Cont.  ) 


FROM 
PAGE  9 


rIS 
M)-0 


PRINT  500? 
HEADER 


PRINT  700 
CASE  NT 


PRINT  450 
HEADER 


PRINT  451 
HEADER 


T 

PRINT  5000  1  ^ 

r 

\  HIGHR- 

HEADER  p  y 

CONTINUE 

J  <  HIGHR  +  .002 

1 

NO 

XLO-XHIG 
XHIG  —  XHIG  +  .002 
XUOW  =  HIGH 
HIGH  —HIGH  +  .002 
XLOWR  =  HIGHR 


PRINT  7000 
CASE.  NT 


PRINT  5557 
LL1.LL2.LL3 


Figure  2-3  (Cont. ) 


I 


“  t 


370 


HIGH  • 

.002 


PRINT  5002  1 

PRINT  700  | 

HEADER 

CASE  NT  I 

PRINT  450 
HEADER 


L.,  PRINT  451  PRINT  452  g. 

HEADER  I  '  HEADER  I 


XLOW  “  0 
XLOWR  =  402 
XLO-.204 
XHIG  -  .204 
HIGHR  —  .104 


± 


453 


HIGHR  » 
HIGHR  +  .002 


XLOxXHIG 
XHIG  ■=  XHIG  +  .002 
XLOW  =  HIGH 
HIGH  “HIGH  +  .002 
XLOWR  »  HIGHR 


PRINT  454 
XLOW,  HIGH, 

NSIGNO  (l),XLOWR 
HIGHR,  (NSIGNO(l+5l| 
XLO,  XHIG 
NSIGNO  {I  + 101) 


l/S 

1-1,51  I 


LL1  =  LL1+  UTHX(|) 
LL2  =  LL2  +  LAZDEX  (I) 
LL3  x  LL3  +  LTOTX  (I) 


444 


PRINT  442 
I,  LJTHX  (l) 
LAZDEX  (I) 
LTOTX  (l),l 


TS  - s.  t  “Q 

i)  L  PRINT  5557  K  r  . . .  S 

)  f*"  LL1,LL2,LL3  CONTNUE 

1  «  1  NO  OP 


NORMAL  END  OF  PROGRAM 
f  440 


^3  * 


Figure  2-3  (Cont.  ) 
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2.  4  MODIFICATION  TO  OBTAIN  MISS -DISTANCE 


The  function  of  this  sub-prograrr.  is  to  read  one  or  more  of  the  binary- 
tapes  produced  by  the  continuity  sub-program  and  to  compute  and  make 
entires  in  the  two-dimensional  RAnge /AZimuth  frequency  table.  This 
frequency  table  may  be  thought  of  as  a  ruled  plane  resembling  a  "checker 
board.  "  The  horizontal  dimensions  will  be  in  terms  of  RAnge  intervals 
while  the  vertical  scaling  will  be  in  terms  of  AZimuth.  Any  particular 
block  thus,  represents  a  specific  "closed"  interval  of  range  and  azimuth. 

If  each  KA/AZ  block  ruled  so  that  it  contains  three  separate  lines  for  three 
specific  entries,  then  each  detected  target  will  have  range  and  azimuth 
values,  that  will  define  the  target  into  one  of  the  RA/AZ  blocks  in  the 
RA/AZ  frequency  table.  The  program  examines  the  range  and  azimuth 
of  each  detected  target  and  makes  an  entry  into  the  first  line  of  the  cor¬ 
responding  block  in  the  frequency  table.  This  first  line  in  each  block, 
XOBSVN  ,  is  a  count  of  the  detected  targets  which  appear  in  the  defined 
RA/AZ  block  for  a  specific  analysis.  The  remaining  two  lines  contain 
the  arithmetic  mean  of  the  summation  and  the  standard  deviation  respect¬ 
ively  of  either  of  three  particular  variables  depending  on  the  input  control 
constant.  These  "mean"  and  "deviation"  values  may  be  functions  of  one 
of  the  following: 

1.  The  difference  between  the  true  and  the  apparent  target  in 
a.  "hit  ps-ir11 

2.  The  difference  between  the  ranges  of  the  true  and  the  apparent 
target  in  a  "hit  pair" 

3.  The  difference  between  the  azimuths  of  the  true  target  and 
the  apparent  target  in  a  "hit  pair" 

The  precise  content  of  "mean"  and  "deviation"  is  a  function  of  the  control 
constant,  Ki,  which  is  read  in  at  the  start  of  each  analysis. 

The  program  reads  the  input  that  indicates  which  binary  tape  to 
process  (CASE  2),  the  initial  frame  (START  2),  and  the  end  frame 
(END  2);  it  then  initiates  a  "search  tape  4  routine"  to  select  the  desired 
starting  point  on  the  input  tape.  Each  individual  detected  target  is 
examined  and  entries  are  made  into  each  of  the  three  respective  lines  in 
the  corresponding  RA/AZ  block.  Upon  processing  the  frame  information, 


II-S 
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a  test  is  made  to  determine  if  the  last  frame  has  been  processed.  If  the 
last  frame  has  not  been  processed,  the  program  recycles  back  to  read 
another  frame  from  tape  and  processes  this  as  described  above.  When 
the  last  frame  has  been  processed,  the  program  enters  the  "output  sections.  " 
The  RA/AZ  frequency  table  (discussed  previously)  is  printed  on-line  and 
punched  onto  cards. 


Glossary 

AMAZ 

Arithmetic  mean  of  the  azimuth  error  in  (radians) 

AMMD 

Arithmetic  mean  of  miss  distance  in  (nautical  miles) 

AMRE 

Arithmetic  mean  of  the  range  error  in  (nautical 
(miles) 

AND 

The  summation  of  the  NDR's 

AND2 

The  summation  of  the  squares  of  NDR 

ANDR 

NDR  expressed  i,n  floating  point 

A  ZD 

The  absolute  difference  in  azimuth  between  a 
true  target  and  its  associated  apparents 

AZTHER 

The  summation  of  the  azimuth  error  for  a  given 

Jth  target 

AZTHSQ 

The  summation  of  the  squares  of  the  azimuths 
for  a  given  Jth  target 

DIST 

The  distance  between  a  true  and  its  apparent 
target 

DMISSQ  . 

The  summation  of  the  squares  of  the  miss 
distance  for  a  given  Jth.  target 

DMISSR 

The  summation  of  the  miss  distances  for  a 
given  J  ^  target 
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FRQOBS 


Frequency  of  observation  (i.  e. ,  how  many 
times  the  J^1  target  was  detected) 


MONTH 

The  number  of  the  month 

NDAY 

The  day  of  the  month 

NY  EAR 

The  last  two  digits  of  the  year 

RNGER 

The  summation  of  the  range  errors 
given  Jth  target 

for  a 

RNGSQ 

The  summation  of  the  squares  of  the  range 
errors  for  a  given  Jth  target 

STDAZ 

The  standard  deviation  of  azimuth  error 

STDMD 

The  standard  deviation  of  the  miss 

distance 

STDRE 

The  standard  deviation  of  the  range 

error 

VARAZ 

The  variance  of  the  azimuth  error 
calculated  by  the  formula 

2  N  EX2  -  (EX)2 

*  “  N  (N  -  1) 

VARMD 

The  variance  of  the  miss  distance 

VARRE 

The  variance  of  the  range  error 

2.4.2  FORTRAN  Listing 

DIMENSION  L JTH ( 50 ) »  LAZ (50) *LAZDEL(50) ♦  L  TOT ( 50 ) 

DIMENSION  X ( 100) fY( 100) *M<100) *DIFX( 100) »DIFY( 100) >R0( 100) »R2( 100) 
1  ♦DELY(10C)»AZ(l0u) *NRES0L< 100) » FRQOBS ( 100 ) *DM I SSR I  1 00 ) ♦ 

2 DM  I SSQ ( 100 ) tRNGER ( low ) *  RNGSQ ( 100 ) *AZTHER ( 100 ) *  AZ  THSQ ( 1 00 ) ♦ R 1 ( 100 ) 
DIMENSION  DELX ( 100  I 
READ  5050  ♦•MONTH  *NDAY*NYEAR 
500  DO  5^33  1=1*100 
FRQOBS ( I )=0« 

DM  I SSR ( I ) =0. 

DM  I SSQ (  I  ) =0. 

RNSEE ( I ) =0. 


III-S 
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T 


7 


7 


] 

I 


RNGSQ ( I )aO. 

AZTHER ( I )  =0  » 

5333  AZ  THSO ( I ) =0* 

AND=0. 

AND2  =  0  • 

5050  FORMAT (312) 

PRINT  845  »MONTH ,NDAY»N YEAR 

0=0, 

READ  3,NT*KLOCKL* CASE, GAIN 

3  FORMAT (215, 2F 10,1 ) 

R  400* AZMUL »DELMUL»AZRES»DELRES,RMAX»RMIN,RMIN2 
400  F'  RMATI7F10.1  ) 

PkINT  5002 

5002  FORMAT ( 78H  AN/TLQ-8  SIMULATION  MEASURES  OF  MISS  DISTANCES 

1  BSD  PROGRAM  BX2055) 

PRINT  700  *CASE  »NT 

700  FORMAT ( 1 1 H  CASE  F5*0,  6H  NT  15) 

PRINT  1 100, KLOCKL, AZMUL *DELMUL *AZRES .DFIRFS 

1100  FORMAT ( 1 2H  CL0CKLI4,7H  AZMUL  F9,6,7H  DELMULF 7 .4 *6H  AZRESF9 ,6 

1*7H  DELRESF7.4) 

PRINT  1101 , GAIN, RMAX»RMIN,RMIN2 

1101  FORMAT ( 10H  GAINF7.4,5H  RMAXF7.2*5H  RMINF6,2*6H  RMIN2F9.6) 

PRINT  905 

905  FORMAT { 96H  FRAME  APPS  NSUMM1  NSUMM2  NSUMM3  NDTRAT  K0UNT6  60U 
1NT7  KOUNT8  KOUNT5  KNTSUM  K.OUNT9  NDR  ) 

READ  4,((X(I)»Y(I) ,DELX ( I ) ,DELY( I ) ) , I=1,NT) 

4  FORMAT (4F10.2  ) 

XO= 500, 

Y0=500 , 

X 1 =456 , 6985 

X2=475. 

Y 1 =475  , 

Y2=543. 3015 
KK  =  0 
XX  =  0. 

KK2=0 
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KK3  =  0 
KK7  =  0 
K.K8  =0 
KK9  =  0 
KL0CK=0 

7  KOUNT 1=0 

KOUNT2  =  0 
KOUNT3=0 
KOUNT4=0 
<OUNT5=0 
<OUNT6=0 


I 

I 

] 

1 

J 

I 

1 

} 

\ 

l 

J 

] 

] 

T 

i 


2-100 


ni-s  i 

-J 

i 


m 


KOUNT  8  =  0 
KOUNT9=0 
NSUMM1 =0 
NSUMM2=0 
NSUMM3=0 

sumlo=o. 

SUMO  =0. 

SUML 1=0* 

SUML2=0. 

DO  50  1  =  1, NT 

D I FX (  I  )  =  X ( 1  )~XO 
DIFYI I  )=Y( I  )-YO 

RO( I ) =SQRTF ( D I FX ( I ) **2 +D I FY { I) **2 ) 

IF  { RO (  D-RMAX)  9,9,8 
9  IF(ROU)-RMIN)  500,500,501 

500  SUML  0  =  SUM  LO+RM I N2 
GO  TO  502 

501  SUMLO=SUMLO+l./RO(I) **2 

502  SUMO=SUMO+ 1 • /RO ( I )**2 

8  Rl(  I  I=SQ«TF  {  (X(  I  )-Xl)**2+C  Y(  D-Yl  )**2) 
IF (R1 ( IJ-RMAX )  11,11,650 
11  IF(R1( I l-RMIN)  652,651,651 

651  SUML1=SUML1+1./R1 <I)**2 
GO  TO  650 

652  SUML 1=SUML1+RMIN2 

650  CONTINUE 

13  R  2 ( I )=SQRTF( ( X ( I )-X2)**2  +  (Y( I )-Y2>**2) 

IF (R2(  II-RMAX)  15,15,660 

15  IF (R2 (  I  l-RMIN)  662,661,661 

661  SUML2=SUML2+1./R2< I )**2 
GO  TO  660 

662  SUML 2= SUML 2 +RM I N2 

660  CONTINUE 

IF ( DIF Y( I > )  18,18,19 
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18  M { I  )  =  3 

NSUMM3  =  NSUMM3  + 1 
GO  TO  50 

19  IF (RO( I I-RMAX  )  40,40,22 

40  IF (DIFX(I) 120,23,23 

20  IF(R1( 1 I-RMAX)  21,21,22 

22  M ( I  1=4 
GO  TO  50 

21  M ( I )  =  1 
NSUMM1=NSUMM1+1 
GO  TO  26 

23  I F ( R 2 ( I I-RMAX)  25,25,22 


III-S 


25 


M( I ) =2 

N$UMM2=NSUMM2+1 
26  AZ( I )=ATNlF(DIFY( I ) ,-DI FX (  I  )  ) 

50  CONTINUE 

DO  56  I =1 *50 
L JTH ( I >=0 
LAZ( I  )  =0 
LAZOEL ( I >=0 
56  LTOT ( I ) =0 

K  =  0 

L  I  NOX  =  0 
DO  100  J* 1 *NT 
IF(M(JM  100  ,  58*58 
58  I F  f  XABSF ( M ( J ) )~2)  60*60*100 

60  L  =  0 

DO  76  1=1, NT 

IF (XABSF (M ( I ) ) -XABSF (Ml J) ) )  76*62*76 
62  IF ( (ASSF(AZt J)-AZ(I ) ) 1-A2RES)  64*64.76 

64  L=L+ 1 

NRESOL (L) =1 

76  CONTINUE 

72  S I DLO=SUMO 

AMB=0. 

AMBL=0, 

74  1  F ( XABSF ( M  (  J  ) ) -1 )  75*71*75 

75  RADOMA=SUML2 
GO  TO  77 

71  RADOMA=SUML 1 

77  DO  88  1=1, L 
KBAS=NRESOL( I ) 

FRACT=l./RO(KbAS)**2 

FLJ=1.-ABSF( ( AZ { J ) -AZ ( KBAS ) J/AZRES; 

amb=amb+flj*fract 

IF (FRACT-RMIN2 )  275.275,274 
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274  FRACT=RMIN2 

275  AMBL  =  AMBL+F  L J*FRACT 
IF(J-KBAS)  88,276,88 

276  TARGML=FRACT 

I F ( XABSF (M ( J ) ) -1 )  83,85,83 
83  IF ( R2 ( <BAS) -RMIN )  680*680,681 

680  RANGMA=RMIN**2 
GO  TO  682 

681  RANGMA=R2(KBAS)**2 

682  CONTINUE 

DELTA=RO(J)-R2(J) 

GO  TO  88 

85  IF (R1 ( KBAS) -RMIN )  690,690*691 


2-102 


m-s 


690  RANGMA=RMIN**2 
GO  TO  692 

691  RANGMA=R1 { ICBAS ) **2 

692  CONTINUE 
D£LTA=RO( J)-R1 ( J) 

88  CONTINUE 

I F ( AM8L- ( SUM0-AM8 ) *GA I N ) 4000  *89 ♦ 89 
4000  ICOUNT  9=KOUNT  9+1 

GO  TO  100 

89  AOS  I GO* ( ( SUMO-AMB ) *GAIN+AMBL-TARGML ) /TARGML 
AOSIGA* ( RANGMA+RADOMA )  -1 . 

S I GNO* 1 . / ( 2 • +A03 1 60+ AOS  I GA+ AOS I GO*AOS I GA  > 

I F ( SIGNC-.01 12 )  99*101*101 

101  (COUNT  1*IC0UNT1  +  1 
GO  TO  112 

99  IFISIGNO-. 00841 )  103*102*102 

102  KOUNT2=KOUNT2+l 
IF(RAM2BFfO)-.6)  112*250*250 

103  IF ( S I GNO- *006 3 1 )  105*104*104 

104  KOUNT3=KOUNT3+l 

I F { RAM2BF ( 0 ) -• 2 )  112.250*250 
10b  ICOUNT  4  =  ICOUNT  4+1 

250  CONTINUE 
GO  TO  100 

112  KOUNT5=(COUNT5  +  l 
IF(L-1(  113.113*114 

114  KOUNT6=(COUNT6  +  l 
L  I  NDX  =  L  I'NDX  +  1 
I F ( L INDX-50 )  73.73.122 
73  LJTH(LINOX)  =J 

LAZ(LINDX)  =L 
GO  TO  122 

113  A2T  =  AZ  (J) 
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lib  ANG= ( RAM2BF ( 0 ) — • 5 ) +AZMUL 
A2  T  =A2  T+ANO 

bNO=  (  RA«2bF  ( 0  )  -.5  )  +DELMUL 

DEL  7  A  =  OtLT  A+  UNO 

IMXAb.Sr  |M(J))-1I  116,116.117 

116  ANGLE =A2T +.5235986 
30  TO  118 

117  ANGLE=A27-1. 0471976 

1 18  RANGE  = ( 2b 00. -DELTA** 2) / { 100,*COSE ( ANGLE ) ~2 . *DEL TA ) 

1298  CONTINUE 

<  =  IC  +  1 

120  XAP  =XO-RA:NGt*COSF  ( A2T  ) 

121  YAP  =Y0+RANGt*SINFIA2T) 

IF  (  SEN  Sr.  SWITCH  2  )  1666.1667 

1666  WR I T E  OUTPUT  TAPE  4,1668. J ,X(J)  » Y ( J > ,R0 ( J ) ♦ AZ ( J J , XAP , Y AP .RANGE ♦ A 


hi-s 


2-103 


IT 

1668  F(  3MAT ( I5.8E14.5) 

1667  CONTINUE 

FR008S { J ) =  FROOBS ( J 1 +1 • 

D I S  T  =  SQRTFI <X{ Jl-XAP  ) **2  +  < Y I J ) -YAP  1**2) 

DM  I SSQ ( J 1  =  DMISSO(J)  +  DIST**2 
DM  I SSR ( J 1  =  DMISSR(J)  +  DIST 

RD*  ABSF ( RO  f  J ) -RANGE ) 

RNGER ( J 1 *RNGER ( J l+RD 
RNGSO ( J 1 *RNGSQ ( J 1 +RD**2 
AZD  =  A6SF(A2( JI-A2TI 
AZTHERI J)*AZTHER( Jl+AZD 
AZTHSO (J>=AZTHSQ(J)+AZD**2 
I F ( SENSE  SWITCH  1)  1400,1401 

1400  PUNCH  912 .CASE .KLOCK  »J,RO ( J ) ,AZ I J ) »D I ST.RD, AZD 

1401  CONTINUE 

912  FORMAT (F8#0*I5»I4»F10*3»F10*6»F11*5»F11*5»F10*6) 

GO  TO  100 

122  NEEL=0 

DO  130  1*1* L 
KBAS’NRESOL ( I ) 

IF { XABSF (M( J))~l )  123.123,124 

124  I  F  ( ABSF  (ROIKBAS  I -R2  (  KB  AS  )-DEtrTA  l-DELRES  )  127,127,130 

123  IF(ABSF(R0<KBAS)-R1(KBAS)-DELTA)-DELRES>  127,127,130 
127  NEEL=NEEL+1 

M ( KBAS 1 =— M ( KBAS ) 

NRESOL (NEEL  I = NRESOL ( I ) 

130  CONTINUE 

I F ( NEEL-1  )  517.517,132 
517  KOUNT8=KOUNT8+l 

IF(LINDX-50)70 00 ,7 000,113 
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7000  LAZDEL ( L I NDX ) = 1 
LT0T!LINDX)=1 
GO  TO  113 
132  KLOO= 1 

IF(LINDX-50) 133,133,134 

133  LAZDEULINDX)=NEEl 

134  I F ( NRESOL ( KLOO ) - J 1  135,150,135 

135  I ND=NRESOL ( KLOO ) 

I  F ( XABSF ( M ( J 1 J -1 >  136,136,137 

136  ADELTA=RO( IND1-R1 <IND> 

GO  TO  140 

137  ADEL TA=RO (I ND ) -R2 ( IND) 

140  DO  149  1=1, NT 

IF(M(in  149,777,777 

7  77  IF { XABSF (M( I  - > -XABSF < M ( J ) 1)149,141,149 


141 

I F { ABSFIAZ ( 

1 

)  -AZ. 

142 

I r (XABSF <M( J 

) 

)-l  ) 

146 

1F(AI3SF(R0(  I 

) 

-R 1  ( 

144 

NtEL=NEE L+ l 

NRCSOL (NEEL ) 

= 

I 

M(1  )  =-M { I ) 

GO  TO  149 

143 

i  l-  (  AbSF  ( RO  {  I 

) 

-R2I 

149 

CONTINUE 

150 

KL00=KL00+1 

IP (KLOO-NEFL 

) 

134 

152 

If (LINDX-50) 

1 

55.1 

142.142.149 


146.146.143 


144  » 144 ♦ 149 


144  *  144  ♦  149 


155  LTOT(LINDX)=NEEL 

156  SUMAZ  =0* 

DENOM=NEEL 
KOUNT7=KOUNT7+NEEL 
A2T=0 • 


DO  160  I = 1 .NEEL 
<6AS  =  NRESOL( I  ) 

I F ( AZ ( KBAS ) -A2 T  )  160.160.277 

277  A2T  =A2 ( KBAS  ) 

I F ( XABSF ( M  (  J  ) 1-1)278.278.279 

278  DELTA=R0(KBAS)-R1 <<BAS) 

GO  TO  160 

279  DEL  TA  =  RO { KBAS ) -R2 ( KBAS ) 

160  CONTINUE 

GO  TO  115 
100  CONTINUE 

NDTRAT= (  1 000*K  )  /  NT 
<NTSUM=10*K0UNT1+6**0UNT2+2*K0UNT3 
NDR=< 1000*K)/(NSUMM1+NSUMM2) 
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XX=XX+1. 

I F ( XX-52 •  )  571.571,570 

570  PRINT  845 .MONT h.NDAV.NYEAR 
PRINT905 

XX  =  0. 

571  PRINT  906.KLOCK.K.NSUMM1 .NSUMM2 .NSUMM3 .NDTRAT .K0UNT6 .KOUNT7 .KOUNT8 
1 .KOUNT5.KNTSUM.KOUNT9.NDR 

906  FORMAT ( 16. 417. 718,16) 

KK=KK+K 

KK2=KK2+NSUMM1 

KK3=KK3+NSUMM2 

KK7  =  KK7  +  K0UNT  6 

KK8  =  KK8  +  KO(JNT8 

KK9=KK9+K0UNT9 

ANDR=NDR 

ANDR=ANDR/1000. 

AND2=AND2+ANDR**2 


ih-s 


2-105 


and=and+andr 

KL0CK=KL0CK+1 

IF (KLOCK-KLOCKL)  949*949*950 
V49  DO  900  I = 1 *NT 

X ( I ) =X ( I ) +DELX (  I  ) 

900  Y ( I ) =Y ( I > +DEL  Y {  I  ) 

GO  TO  7 

950  PRINT  907*KK*KK2*KK3*<K7»KX8*KK9»AND 

907  FORMAT ( 7H  TOTALS  1 6 *2 1  7 . 1 23  *  1 16 . I  24 *F9. 3 ) 

PRINT  9 14 *AND2 

914  FORMAT ( 90H 

1  SUM  OF  SQUARES  NDR  F11.6) 

PRINT  845  *MONTH*NDAY  *NYEAR 
PRINT  908 

908  FORMAT  1 95H  MISS  DISTANCE  RANG 

IE  ERROR  AZIMUTH  ERROR) 

PRINT  909 

9C9  FORMAT ( 10 1H  TARGET  FREQ  OBS  MEAN  ST  DEV  VAR  MEAN 

1  ST  DEV  VAR  MEAN  ST  DEV  VAR) 

DO  901  1=1, NT 

AMMD=  DM  I SSR ! I ) /FRGOBS ( I  ) 

VARMD= ( FRQOBS ( I )*DMISSQ( I ) -DMI SSR ( I ) **2 ) / ( FRQOBS ( I )*! FRQOBS! I ) -1 • ) 
1  ) 

STDMO=SQRTF (VARMD) 

AMRE=  RNGER ( I  ) /FRQOBS ( I  ) 

VARRE= (FRQOBS ( I )*RNGSQ( I ) -RNGER ( I ) **2 >/( FRQOBS ( I )*< FRQOBS (I )-!•>) 
STDRE=SQRTF ( VARRE ) 

AMAZ=AZTHER( I ) /FRQOBS ( I ) 

VARAZ= (FRQOBS ( I ) *AZTHSQ ( I ) -AZTHER ( I ) **2 ) / ( FRQOBS! I )*l FRQOBS! I ) -1 • ) 
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1  ) 

STDA2=SQRTF ( VARAZ ) 

PRINT  911*1 *FRQOBS( I ) , AMMD * STDMD » VARMD *AMRE »STDRE » VARRE »AMAZ »STDAZ 
1 » VARAZ 

PUNCH  913*  CASE  ♦  I ♦ RO ( I ) »AZ< I) *FRQOBS( I ) *DMI SSR  < I  ) *DMISSU( I ) »RNGER ( 
II ) *RNGSQ( I ) * AZTHER ( I ) *AZTHSQ< I ) 

901  CONTINUE 
PRINT  959 
PAUSE  1 

GO  TO  1500 

959  FURMAT  ( 83H  NOTE  MEAN  AND  ST  DEV  OF  AZIMUTn  E.KROR  ARE  MULTIPLIED  B 
1Y  100  AND  VARIANCE.  BY  1000  ) 

84t>  FORMAT!  108H1 

1  DATE  RUN I3*1H/I2»1H/I 

22  ) 

911  FORMAT! I  5 *F 10. 0 *F 1 1 , 3  * F 1 0, 3 *F9 . 3 *F 1 1 • 3 »r 10. 3 *F9 • 3 ♦ 2P2F 1 0, 6 , 3PF9.6 ) 

913  FORMAT ( F6,0 , I  3 »F 6* 1 *F7,4 *F4.0 »F 7 • 1 *F7, i ,F9.4*F 8*2 . 1 PF 7. 4 » 2PF8 .4 ) 

END(0,1, 0*0*1 ) 


2-106 


m-s 


7 


DIMENSION 


x  (100),  Y  (100),  M  (100),  DlFX  (100),  DIFY  (100) 

RO  (100),  R2  (100),  R1  (100),  DEI  X  (100), 

DELY  (100),  AZ  (100),  NRESOL  (100),  FRQOBS  (100) 
DMISSR  (100),  DMISSQ  (100),  RNGER  (100), 

RNGSQ  (100),  AZTHER  (100),  AZTNSQ  (100) 


GO  TO  A 
PAGE  2 


FLOW  DIAGRAM  ERROR  MEASURES 


1500 

(DO  5333  l 

1  =  1,100  f— 

~TJ 


5333 


FRQOBS  (I)  =  0 
DMISSR  (I)  =  0 
DMISSQ  (l)  =  0 
RNGF-R  (| )  =  0 
RNGSQ  (|)  =  0 
AZTHER  (l)  =  0 
AZThSQ  (I)  =  0 


I - 


READ  5050 
MONTH,  NDAY, 
NYEAR 


JTj 


7 


KOUNT  1  =  0 

X0  =  500 

> 

KOUNT  2  =  0 

Y0  =  500 

READ  4,  X  (I), 

KOUNT  3  =  0 

XI  =456.6985 

Y  (1),  DELX  (|),  DELY  (I) 

KOUNT  4  =  0 

X2  =  475- 

1  =  1,NT 

KOUNT  5  =  0 

Y1  =  475. 

KOUNT  6  =  0 

Y2  =  543.3015 

KOUNT  7  =  0 

KK  =  0 

KOUNT  8  =  0 

KK3  =  0 

KOUNT  9  =  0 

KK8-0 

N5UMM  1  =  0 

KK2  =  0 

NSUMM  2  =  0 

KK7  =  0 

NSUMM  3  =  0 

KK9  =  0 

SUMLO *  0 

_ KLOCK  =  0 _ 

SUMO  =  0 

SUML  1  =0 

SUML  2  =  0 

XX  =0 

Figure  2-4  Flow  Diagra 


Figure  2-4  Flow  Diagram  Error  Measures 
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I 


CALC  RANGES  &  MAKE 
SUMMATIONS 


DIET  (ifl^U^RO  <I)>RMAX 


(I) ■=  [(X(l>-  XI)2  +  (Y(|)  -  Y1)2]H 


SUMO  =  SUMO  + 

-1-2 

onm* 


VRO  (l)>  rminJ 
<o 

SUMLO  »  SUMLO  + 

TO7I)2 


SUMLO  =  SUMLO + 
RM1N2 


SUML2  «  SUML2  + 
RM1N2 


SUML2  =  SUML2+  J  YES |s 
-_i_2  R2  (0— RM1N 


^  IS  ^ 

R  (!)>RMAX 


SUML1  =  I  YES  X 

SUML1  +  I  '  /  IS  ^ 

i  _  H<  RI  (l)>  RM1N 


SUML1  = 
SUML1  + 
RM1N2 


CONTINUE 


NO  IS  X 

— -“'C_  R2(I)<.RMAX 


GO  TO  B 
PAC-E  3 


Figure  2-4  (Cont.  ) 


2-109/2-110 


FROM 
PAGE  5 


I  f 


FLJ  =  1.  - 

71 

AZ  (J)  -  AZ  ml 
AZRES 

FRACT = 

1 

KBAS  = 

Li  DO  88  V. 

r 

RADOMA  = 

RO  (KBAS)2 

NRES«»_  (|) 

■ 

SUML1 

274 


FRACT = 

RM1N2 

i  yes 

X 

'  275 

Z  FRACT >  ^ 
V^RM1N2 

NO 

AMBL=AMBL  + 
FLJ  •  FRACT 

AMB  =  AMB 
+  FRACT  i  FLJ 


FREQUENCY  DISTRIBUTION  SIGNAL  TO  NOISE 


0  TO 
PAGE  4 


NSIGNO  (153)  = 
NSIGNO  (153) -t-  1 

8002 

i  8001 

YEST 

NSIGNO  (NS)  ■= 
NSIGNO  (NS)  +  1 

NO 


NS  =  1000  * 
S1GNO 


SIGNAL  TO  NOISE  RATIO 


11000  •  SIGNO 


S1GNO  = 


_L 


2  +  AOS1  GO  +  AOS1GA  +  AOS1GA  +  AOSlGOl 


< 


4 


FROM 
PAGE  5 


IS 

M  (J)<0 


IS 

M  (J)>  2 


TESTING  AZIMUTH  RESOLUTION 


DO  76 
1  =  1, NT 


'  IS  " 
M  (J)  =  M  (I) 


,  IS 

|A2|  -  A2l|> 
AZRES  . 


'NO  64 


RADOMA i 


■  SUML1  J  y 

M  (J)=l 

C/ 

t  ‘ 40  75 

RADOMA  = 

SUML2 

AMB  =  0 
AMBL  =  0 


RANGMA ■ 
RM1N2 


CONTINUE 


L=  L+l 
NRESOL  (L)  =  I 


DELTA  = 

RO  (J)  -  R2  (J) 


J™  ONLY 


TARGML  = 
FRACT 


M  (J)=1 


.  RM1N  ^ 


RANGMA^ 
R1  (KBAS) 


RANGMA  = 

DELTA = 

RM1N2 

KO  (J)  —  R 1  (J) 

SIGNAL  TO  NOISE  RATIO 


JL  JAMMED 
AMBL< 

(SUMO  -  AMB)  GAIN  . 


KOUNT9- 
KOUNT9+  1 


Figure  2-4  (Cont.  ) 
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PAGE  3 


SIGNO  2>  .0112 


DETECTION 
.  YES  f“ 


101 

XOUNT1  =  KOUNT1  +  1 


DETECTED 


KOUNT5=  KOUNT5+  1 


SIGNO  i>  .00841 


102 

KOUNT2  =  KOUNT2  +  1  1 


IS 

RAM2B<.6 


A2  UNRESOLVED  CLUSTER 


K=K  +  ll 


SIGNOR  .00631 


104 

KOUNT3  =  KOUNT3  +  1  I 


IS 

RAM2B<,2 


XAP  =  X0 - 
RANGE  COS(A2T) 


T  105 

KOUNT4  =  KOUNT4  +  1  . 

TESTING  DELTA  RESOLUTION 


122 

NEEL  =  0 


IS 

LINDX  >  50 


CONTINUE 
NO  OPERATION 


XOUNT6'=KOUNT6+  1 
LINDX  =  LINDX  +  1 


YAP=  YO  + 

RANGE  SIN  (A2T)  GO 

_ _  PA 


KBAS  = 
NRESOL  (I) 


|m  (/)|  >  i 


x^is^NJ23 

ROfKBAS)^*^ 
-  R1  (KBAS) 

-  DELTA >  ^ 
VDELRES^X^ 


| _  I  LOOP  | 


LJTH  (LINDX)  =  J 
LJTHX  (L)  =  LJTHX  (L)+l 
LA2  (LI  NOX)  =  L 


^RO  (KBAS) 
-  R2  (KBAS) 
_ -  DELTA > 
ViPELRES  . 


CONTINl 

IE 

LA2DEX  (NEEI.)  = 
LA2DEx  (NEEL)+  1 


Figu 


/' 


i 

I 


from  z 
page  4 


O 


i  1 

FRQOBS  (|)a 

f  *- 

FRQOBS  (l)+  1 

AZTHER  (J)  —  AZTHER  (J)  +  AZD 


AZTHSQ(J)  «  AZTHSQ(J)  +  AZO**2 


I 


PAGE  5 


Figure  2-4  (Cont. ) 
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3. 


NO 


AND  =  AND 
+  ANDR 


«*■ 


AND2- AND2. 

t| 

+  ANDR2 

1 

andr  =anpr 
1000 


KIC  =  KK  +  K 
KK2»KK2  +  NSUMM1 
KK3  «  KK3  +  NSUMM2 
KK7  =  KK7  +  KOUNT6 
KK8  =  KK8  +  KOUNT8 


1 


571 


PRINT  906 

KLOCK,K,NSUMMl 

NSUMM2.NDTRAT 

KOUNT6.KOUNT7 

KOUNT8.KOUNT5 

KNT5UM.KOUNT9 

NDR 


fRINT  914 
WD2 


f  PRINT  845 
MONTH 

NDAY,  NYEAR 


K 


PRINT  908 

909 

910 


GOTO 
PAGE  8 


Figure  2-4  (Cont. ) 
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FROM 
BOTTOM 
PAGE  7 


(  DO  901  \ 

\ n 


AMMD  —  DMISSR(I) 

VAi'.V')  =  FRQOBS(I)*  DMISSQ(I)  -  DMISSR(I)**2 

FRQOBS(I) 

FRQOBS(I) *  (FRQOBS(I)  -1) 

-f 


1  STDAZ-SORTF  (VARAZ) 

L 

— - s 

PRINT  911 

1,  FRQOBS(I) 

AMMO,  VARMD, 

PUNCH  913 

CASE  1,  RO  (1),  AZ(I) 
fro  lR^m  nuKscm 

STDMP,  AMRE, 
VARRE,  STDRE 
AMAZ,  VARAZ, 
STDAZ 

DMISSQ(I),  RNGER(I) 
RNGSQ(|),  AZTHER(I), 
AZTHSQ(I) 

_ 

901 


CONTINUE 


I  LOOP 


> 


GO 

15( 

1 


Figure  2-4  ( 


ft 


INT  911 
-RQOBS(I) 
MD,  VARMD, 
DMP,  AMRE, 
RRE,  STDRE 
»Z,  VARAZ, 
AZ 


PUNCH  913 
CASE  I,  RO  (I),  AZ(I) 
FRQGBS(I),  DMISSR(I), 
DMISSQ(I),  RNGER(I) 
RNGSQ(I),  AZTHER(I), 
AZTHSQ(I) 


CONTINUE 


GO  TO 
1500  PAGE 
1 


Figure  2-4  (Cont.  ) 
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2.  5  RAID  SIZE  ESTIMATION  PROGRAM 


The  Raid  Size  Estimation  Program  is  a  modification  to  the  orignal 
simulation  program  to  include  a  process  for  more  realistically  estimating 
the  number  of  targets  in  the  unresolved  (AZIMUTH  and  DELTA)  clusters. 

The  addition  of  the  counter,  NESDT  (which  is  used  to  count  the  new 
estimated  number  of  detections),  is  the  principal  facility  of  the  "Estimation 
Program.  "  Originally,  when  a  cluster  of  targets  that  were  unresolved 
with  respect  to  the  radar  was  encountered,  the  scoring  section  reported 
only  one  target  detected,  regardless  of  the  actual  number  in  the  cluster. 
Since  the  width  of  the  unresolved  cluster  is  almost  always  dependent  upon 
the  azimuths  of  the  respective  members  of  the  cluster,  one  can  give  a 
minimum  estimation  of  the  number  contained  in  the  cluster.  For  example; 
if  a  cluster  extends  a  width  of  30°,  and  the  aximuth  resolution  of  the  radar 
(AZRES)  is  3°,  it  appears  evident  that  there  are  30°/3°  or  10  radar  beam 
widths  in  the  clustered  sector. 


The  program  examines  each  target  per  frame  to  determine  if  a  cluster 
is  reported.  If  a  target  is  not  contained  in  a  cluster,  the  detection  counter 
(NESDT)  is  increased  by  one.  When  a  cluster  is  reported  the  program 
proceeds  to  compute  the  width  (SECTWD)  of  the  clustered  sector.  This 
is  accomplished  by  examining  the  respective  azimuths  of  the  targets  in  the 
sector  and  determining  the  largest  and  smallest  azimuth  of  the  group. 

Once  the  width  has  been  obtained  it  is  divided  by  the  radar  beam  size 
(AZRES)  ;o  obtain  the  number  of  radar  beams  contained  in  the  clustered 


It  should  be  noted  that  this  result 


SECTWD 
AZRES  ’ 


should  be  increased  by 


one  to  yield  the  actual  minimum  number  of  targets  contained  in  the  cluster, 
(e.  g.  :  if  10  beam  widths  are  contained  in  the  cluster  then  at  least  11  targets 
are  required  to  construct  this  sector  width). 


After  completion  of  the  detection  analysis,  the  new  estimated  number 
of  detections  (NESDT),  and  the  new  detection  rate  (NESTR)  are  printed 
in  tabular  form  along  with  the  original  output. 

An  optional  punched  card  output  has  been  added  which  may  be  used 
to  obtain  detection  plots,  and  perhaps  utilized  in  later  analysis.  The 
card  format  contains  the  case  number  (CASE),  the  number  of  targets  in 
range  (NSUM12),  the  number  of  apparent  targets  (K),  the  number  of 


III-S 
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detections  (KOUNT5),  the  detection  rate  (NDR),  the  new  estimated  number 
of  detections  (NESDT),  and  the  new  estimated  detection  rate  (NESTR). 

The  Historical  Output  Tape  4  has  been  modified  to  include,  in  addition 
to  the  coordinates  of  the  true  and  apparent  targets  (X,  Y,  XAP,  YAP), 
the  sector  v/idth  (SECTWD),  the  range  (RANGE),  and  the  azimuth  (A2T1) 
of  the  true  target. 

The  sum  and  the  sum  of  squares  of  the  tabular  columns  of  NESTR  are 
also  computed  and  printed  at  the  end  of  the  tabular  output. 


2.  5.  1  Glossary 

ARANGE 

Target  range  (same  as  RANGE) 

A2T1 

Azimuth  of  the  apparent  target  (same  as  A2T) 

CONI 

The  angle  from  Omni  1  to  the  horizontal,  with 
the  main  radar  as  vertex 

CON2 

The  angle  from  Omni  2  to  the  horizontal,  with 
the  main  radar  as  vertex 

FFF1 

Sum  of  the  variable  NESTR  over  all  of  the 
frames  examined 

FFF2 

Sum  of  the  squares  of  the  variable  NESTR  over 
all  of  the  frames  examined 

FFF3 

Same  as  NESTR 

NESDT 

Counter  containing  the  new  number  of 
detections  per  frame 

NESTR 

New  rate  of  detection 

NSUM12 

Sum  of  NSUMM1  and  NSUMM2 

NWIDE 

The  value  used  to  estimate  the  minimum  number 
of  targets  in  an  unresolved  (AZIMUTH  and  DELTA) 
cluster 

SCTWD1 

Same  as  SECTWD 
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SECTWD  The  sector  width  of  the  AZIMUTH  and  DELTA 

unresolved  cluster,  plus  the  value  AZRES 

SMALL  The  smallest  azimuth  contained  in  the  unresolved 

(AZIMUTH  and  DELTA)  cluster 

XLARG  The  largest  azimuth  value  contained  in  the 

unresolved  (AZIMUTH  and  DELTA)  cluster 


2.5.2  FORTRAN  Listing 

0  i  Mfc'NS  I  ON  LJTHX(50)  »LTOTX < 50 ) *LAZDEX ( 50 )  *N6lGNO<153) 

DlMtNSION  NTTUAAi  60)»DlSfT<  6Q)*NMST(  60)*NMSA(  6o)*DioMS<  60)* 
1NHTT  (  6U)*NHTA(  6<J)*u-iSnT<  60)»NFST(  60)*NFSa(  60)*DIsfS(  60) 
DIMENSION  DiSTOl)  «oiSri(31) 

DiMuNMUN  Di  r  X  (  bO).Dir Y(  60) 

oiMeNSIUN  X(  6u)»Y(  t»u )  *  i<M  I  N(  60)*RMIN2(  £0)»RMAX(  60)»M(  60)* 
iKu(  6o)*Kj.(  ou)*K2(  60)*A2(  60) 

DiMcNbiON  NRE.S0L  (  60)*LJTH(50)*LAZ(50)*XaP(  60)*YAP<  60 )  .LAz-DtL  (  30 
1) »LTOT<50) fSCTWDK  6U)*m2T"1<  6Q)*AKANG£(  60) 

READ  5050  » MONTH  »ND AY  *N  Y  t  Ar< 

5050  FORMAT (312) 

kLAD  22*  *X1  »Yi*X2*Y<ttCuNltCON2 
222  FORMAT  (6F  l<J«i  ) 

1300  00  333j  I-i»50 

LTOTX ( I  )  -0 
533j  LAZOtX  (  1  )  =0 
SUX*0. 

SUM-iU  • 
r  Rt:l=-0« 

FRu*-0» 
r  Kc.u-0* 
r  i\t-U  =  u  • 
r  kc.l<2  =  0* 

F  KL.0*  =  0  • 

OXHao* 

DXM*0. 

NtSTRi*0 

NtSTk2=0 

RkiNT  643  »civNTH»N0AY *NYEAR 
DO  6050  1  -1*31 
0ISH( I )«0# 
o050  DiST ( I ) =0# 

5002  FOKi'i.aT  (  ^Ori  T  l.u  j  ■ 

XoATA#  ot.No  IX  SYSTEMS  Oi Vi  Si  ON  JOktl 
)  DO  5334  1-1*30 


m-s 
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LJfr1A(i)-0 
Du  oOOO  I-1#i3j 
tl vOU  i*SKjNG(  I  )  c0 

0*0* 

KLAu  35o'»Kl*RZ*R:J#A4#A:>#A6*R/»A8#Ay»K.G 
3i)u  FORMAT  ( 1 0 1  X  ) 

Kv_mD  3  *uaSc  #aZMUL ♦DbLHUL ♦AZKtS*D£LRtS*uA  i  N 
3  i  ORMAT(OFlO.l) 

acWIkD  2 

KcAD  I Nf'UT  TAP£  2*1150#NT#NF»ID 
ii^U  FORMAT  <313} 

DU  i  1  £»  1  I  =  i  *NT 

Up*  niihi  iNPOT  TAPc  2*11£>2»RMAXU  »  #»hiN(  I )  »RM1N2(  U 
UL0CRL«NF 
GLOuKSaO# 

XX=CL0CKS 
PRINT  5002 


PkIuI  700#CAOt*NT 

Fuo  r umviaT  ( 12h  v-ASt  NUMUcRl  8#0*4h  NTI4) 

PklnT  1 100*CLUCXL*AZMUL*DtLiviUL#AZR£S#Dc.LKti>#GAi  i. 

liuO  FORMA  I ( ( 16ri  CLOURLF5#0  »6tf  AZMULP  8*6*  /  ri  wtLMoLr  v#o»&H  maRc. 

iSFa*r'*7n  uLLRLSr8*6»3n  uAlNF8#6)//) 

PKInI  701 

/  u  i  FORMAT  <  lion  CLOUR  A  NSUMM1  USUMM2  NSUMM3  NMO  Nn  f  NFo  Nr  AKa,'  Nh  ;  K 
1AI  NMSRAT  NDiKAT  k6  n  /  A6  K5  RNT6UM  RV  nl/N  Ntilrv  i»u.5ul) 

4ou  ruRMAT  (  if  10*2  ) 

FORMAT ( 3t 16 #o ) 

X0=300. 

Y0=5uu# 

AR=0 
kn1*0 
KaZ  =0 

NNA=U 

MO»0 

RkO*0 

RR7*0 

RR6*u 

ARv=0* 

AR1 *0# 

Mr  1  =  0* 
r  Fr  z-u# 

'j  ~J  j  PORMaI  (  r  o  #o  ) 

i  Klau  INrUI  TaPc.  £#:>>:/ tuLOUN 

If(oLOCk)  301 » 1 1  /  / *  1 1  /  / 
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m-s 


] 

I 

J 

] 

I 

I 

3 

3 

3 

1 

3 

J 

1 


i  *  (  I  DU  i  ip i  I  -i  *N1 

ii'trUf  F/^r'c.  c%  i  1  54  »X  ( 1  )  *  Y  (  1  ) 
ily^  i-OkMmI  ( 2l16*<J ) 
fsUUNT  1  =  0 
X0UNT2*0 
K.0UNT3«u 
XOUNT  4*0 

voun  r?=u 
NvU*t  T  6  - 
XuUNT  /  -yj 
kOUi*  i  d  -o 
XUUN1  y -a 
NS 

NSUi,H,i230 

NSU^MJso 

SUMLO-O# 

SUMO  -6» 

SUML1-G. 

SUML2-0. 

NLSUT=G 
NtSTk=u 
DO  50  i - i * N T 
OUXU)*X(  I  )  -XU 

on- rm-Y(  i  j-yo 

kU  (  i  )  =  5uiv  ir  i  X  n  ) **2+0 if-  Y  ( 1  )  **2  ) 

1 1*  ( f\o  { i ) { I ) )  y»y#fl 

1  Ir  Ci\v/(  I  /  —rv.'i X is  ( i ) )  5ouoo0*5ui 

5v,v,  SUML0*SUiMlo+KhIN2  (  1  ) 

GO  TO  502 

Soi  SUMLOsSU/.LG+I  */Nu(  i  )  v*2 

SUf'iG=SUMO+i*/t\G(  i  )**£ 

o  iv*  (  i  i  -SwK  ( r  (  (  X  (  i  J  -Xi  i  ■'  ■■  £.- (  Y  (  I  i  -Y  i  )  J 

ii  (Ki  (  I  )“Ki'<i«X(  i  }  )  il***»oyO 


a  i:  { .%  i  (  I  )  **RW  1 1 »  l  *  )  )  fc^2*0i.i»03i 

O  -  j  i'JilL  *  ••SUMLl  +  i.  •  /.-<*(  il»^ 

Go  TO  650 

o  j  &.  o\j.  >L*  3SUML1+im*iI  iv2  I  i  ) 

\jj\j  v.Ui’il  i NU£ 

x  in x.  (  i  J  -  iiOK  T h  {  (  a  i  i  ;  *•  a  e. )  ■•'  •  c  M  Y  (  :  /  ~  Y  c )  •  *  a 

if  ( rsx.  (  i  )  **KMAX  (  *  }  >  x^»i‘j*ot>0 
x.  ,r  U«.i  I  )-RMIN<  *■  i  l  vOk  9Gvxf6ci 
oOi.  oUhui~o  UML2+1  •  /k*  (  i  )  -.«o 

Ga  ! <j  o60 

oo*.  Soi'iLx.  v SUML2+Riyi I N2  (  i ) 

ouv  v.ui»T  i  Nut, 


l 


IH-S 


2-127 


ii-(i)lFYU))  18*18*19 

10  M ( 1 ) =  3 
N$U,''iM3*NSUMM3+l 
Ou  TO  30 

19  If  {i\0(  U-kMAXU  ))  40*40*22 

hu  i,(uiFX(i ))2U*23*23 

2u  if  UiU  1-RMmX(  L ) )  21*21*22 

2  c.  A  (  1  )  =  4 

ou  TO  50 
21  i'-i  (  i  )  =  i 

;,6U.VilaNSUKMl4l 
00  TO  26 

2j  ir  (K2<  I  J-RMAXU  M  -25*25*22 

25  M  ( I  )  *  2 

NSUMM2  »uSUMH2 + 1 

2  6  A2(  I  )sATN1F(01FYU  IrOii-XU)) 

5v  CONTINUE 

NiUM  1 2  aNSUMMl +NSUMl*t2 
00  56  1*1*50 
LJTHI I ) =0 
UAZ( I ) *0 
tttDEL  ( I)  *0 
36  LtOTm-U 

K*0 

L 1NuX~G 

OU  iUU  J-lyNl 
if  (  t'i  (  J  J  I  i  O  w  •  U  O  *  C  © 
jo  Ir(X/iUoi  ti*i(u)/“2)  o^*o0»  100 

O  v  L  -V/ 

i^O  ;  o  1  -i  ♦if  i 

»i  iX-.uo  1  fi (  i  ;  /  -XttOi.  ( i*i (  o  j  )  )  /6*62*76 
0<;  ii  ((rtuo.  I  m2  l  0  )  -*rti  <  i  i  i  )  -Azal.©  )  64*64*76 

cH  L  Lf *. 

Itf.i.buLlul11! 

/  o  V.UI1  I  .|HU_ 

7c  i  i  L/LV-  OU-  iU 

Ml'  G>  -  U  • 
ni'iuL  -  O  • 

■  i-  lfiXMGof  (i',H0f)~i)  /u*ii*f2 

■  ^  .sMUUi-iM-bOi'lLt 

uO  To  7  / 

11  KAL'oi-i  A  =  bUi'tL  1 

i  <  C<U  DC  i-i*L 

Kom©  =  i'JRL6uL  (  i  ) 
r RAc  f ii*/K0( XomS) **2 
r  Lo*  1  ( ( AZ (o )  -m2  (  kom©  J  J  /aZRES  i 

Ai*io  =  Mi  io  +  r  L  J  *"f 

it  ( i  hMu7~.\i*;i.«£  ( auA©>  J  2  0*275*274 
2/4  f  l\«C  I  =KMi  i>t2  ( XoAS ) 
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2  ’(o  AMuL-AfooL+f 

ir(J-Kbrto)  88*2 76*88 
2?  o  TAKGML=i'  K  ACT 

It-  (XAbSf  (Mt  J>  )-l)  83*88*83 
dj  i r  ( f<2  { KbAG)  -kmI M AbAS )  )  680*880*681 
boo  t\Af'tGi,IA*ruMlN  (  RbAS  )  **2 
GO  TO  6o2 

6oi  KmKGi'I /\  =  k2  ( K.GAS  J  *»2 

oci  CONTINUE. 

Dl.LTA=ROI J)-K2( J) 

GO  TO  88 

dfc  JMRiUoAS»-KMIN  !tBAS)  I  690*690*691 

6  >u  RANG.«iA  =  f<MlN  (  AdAS  )  **2 
vj v/  TO  692 

o  >  *  i\hNGKA  —  R 1  I  Kb  AS )  ^*2 

■0)2  CONTINUE. 

ULLTA=Ro( J)-Kl(J) 

6o  cONT i NUt 

if  ( Ar-ioL**  (  SUMO-Aho ) *GAIN )  4000*89*89 
\Ooo  AOUNT9=XOUNT9+i 

uo  ro  loo 

•j  j  ao5IG0=(  (  SUMc-Ai-id  )  w6AIi4+AKbL**TARGWL ) /TARGfiL 
MwGiuA* { KAuGHh^KmOOMA) -1* 

S I  oi<0=  1  •  /  ( 2  •  +aOS  1  Gu+AGS  i  GA+AGS I  GO*" AOS  i  GA ) 

NS=6iGNo*t>00. 

i<S  =  No+l 

I  H  (  Nb-ib*. )  oouctQoO^ *6bUi 
ivv,!  t  .6  L  CKO  (  iO  Cl  ~i*8  1  CKC  (  U2)  ■*■  1 
oU  ] u  8uuj 

.iO  i  Ci  4C  { -'<6  )  -  I'iGivji'tV/Ji'iGj  +  l 
owj  \.v.m  I  tNo’L. 

i:  (6iONO"«uiit  i  ?:?*lUl*lGi 
i-i  kcUK  i  isnuUNT  I  +  l 
ow  T  c  1 i 2 

)j  i.  (  6  i  *  )  i0b*i0t»i02 

iOi.  \cok  I  2=KU0kI  2  +  i 

i.  ( (O)~*ot  1 1 1 » 2 •> 0 » t bO 

if  (  GioNo-twOJi  )  iv^nv+»io4 

nuunT  j-kouNT  j  +  1 
it  (  i<mM2o;  (y|_it  j  x  L2*2oV*t:oO 
x~o  AOUN  i  *t  =  AOUN  i  *t  + 1 

2bu  CONTINUE 
GO  TO  luG 

lie  AOUN1 3  =  A00NT-’  +  i 

It-(L-i)  1 1 8  * i 1 J  » 1 14 
114  A  CUN  T  6  =  isOUii.Iu-*'  i 


rn-s 


2-129 


y  ? 


LinuX=LINbX+i 
1  r  (  L 1  NDX“3o  ) 
is  LjTrKLIi'iDX)  =  J 

L JTrlX (  L)  sLJTt.X  (  L  )  +1 
LmZ ( L i NuX  )  =L 
oO  TO  i22 
liJ  A^r-AZ  (J) 

StCTWDaAZHdo 
itW  I  ub=  1 

li^  A. *0- ( (  u  i  c.ti'iuL 

1  -N^SwT^iiw  i  u>. 

it  (ohN^v.  iW  i  t -!  iZ  )  i  V  *  i  ?c.O 
171?  .v.viTt  dulAijT  i  mal  j  »  i  /  i  4  #o  ♦£  iv.i  wo  *  i'<w  i  uc  #XLAKo 

1/xH  i  UKi'ImT  (  it.fl  lMO«-  1  o*faii  iCwl  Wi-  XU#  H  #  /.  i  i*.,  »'jf.  AL.MROc.-riw 

X*J#  7h  O/iMLL- t  iit;  I 


1720  AZT  =A<£T+AN0 

dN0«  (  KAfrZbi-  (o) -#j  J ■ 

L»c.LTA  =  OLL'i  mi-  oitO 
i  r  (  Anoi>r  (M ( J )  )  “1 )  116*  110*117 
uo  ANoLt  =  A^T+CONl 
Go  TO  118 

ilf  aNlLc=AZT-C0N2 

lid  R«NGL=  <  Zi>00*-UtLTM *  *2  )  /  ( XOO^LoSr  (  anoLL  )  -2*  *LLl  Fa ) 

12*8  LONTiRUc. 

K.=X+i 

l«:o  XmP  (  A  ) -Xv-KAiiv»t*C.O$r  (  A*  I  ) 
lei  YAR  (  K.  I  •-  Y O+R AN o£  #b  t  lir  ( m2  I  ) 

m2T1(k)=mZT 
OL  i  Wi/i  (  Kt  -OC.O  I'WU 
mRmRoC.  (  A  i  =RANwc. 

<ju  To  io\x 
ie2  iYfctL-0 

L>o  IjU  I-=i#L 
MiAS-RKcSGL  (  I  ) 

it  (XMOdi*  (M( J)  )~1)  123*i<:jfi24 

i2*  i;  (Ado,  (  i\\j{  \i)rtS ) -R2  (  AcmS  j  -ullTa  J  “oLLKc.S  !  Lt  7*  ic  i  *  I/O 

iZ3  I  r  (  Moor  ( i\u(  AoAS )  •Ki  (  At>Ab  ) -UhuTA )  “L>tLr<tS )  i2  /  *  ic  i  1 1«>0 

<«lcL -uLol  +  I 
i'i  (  ncJmcj  J  =— f*t(  AdA5  ) 

.»f\£_iuL  ( .<c.Lt» )  »uRbSoL  (  i  ) 
i jo  ouN  f i UUc 

L/>Zo^X(l\LI_Uj=LMZoLX(i'(C.tL)+l 
i  r  (  rtccl'i  )  J  *  t  fj  i  i  t  i  jt 
J*/  fxv/Uh  I  O-AOUinT  0  +  1 

I  h  (  L  1  i'»OA~DO  )  /<JUO»7oOU*il3 
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132 

1  V  j 

134 

133 

1  jt 

1 S  I 

14u 

/  7  / 

141 

142 
146 
144 


143 

14* 

l^u 

132 

133 
13o 


1713 

1713 

1/16 


1/1  / 
i/12 
i/lo 
2  7? 

2  /o 


LAZutL(LiNuA)3l 
L70T (LI NDX ) » 1 
00  TO  113 
M-Ou-i 

I  MLlNDX-3u)  133*133*134 
Lrt2Dc.L  <  Li  NuX  )  aNttL 
1  F  ( NRESOL  ( flLOO )  -J )  135*130*133 
I  N0«l\kt.3OL  (-KL00 ) 

IFiXA&SF  UK  J)  ) -1 )  136*136*137 
'wuL7A=KG( 1NU)-R1< 1ND) 

00  TO  140 


AOLLl A=KO ( 1ND)«R2< I  NO) 
00  149  i-l*NT 
lHMIil)  149*777*777 


1 r ( XAoSf ( M( I ) )-XA6SF(M(0))) 149*141 *149 
1 r ( AbSr  <  A2  < I J -A2 ( XLOO > J-AZRE6 )  142  » 142* 149 
IHXAbbr  (M(  J)  )-l)  146*146*143 

1  r  (  AbSF  <  K0<  I  )  -K1  {  i  )-ADELTA)«GELRE.S  )  144*144  *149 
NtcL-NEtL+1 


0KE6UL ( NEEL  )*i 
I ) 

oO  TO  149 

iMAbSF  <kO{  i )-R2< I  )-ADtLTA)-0£i.RES) 
LONTINUt 


144*144*14> 


I4L00-AL00+1 

IF(KLOO-NtEL)  134*134*152 

LTOrXINfcEu  -L TO TX (NEEL )+l 

I F  ( L  lNDX-5v,  )i53*155*156 

UOT(LINUX)=NttL 

6uMAZ-0# 

utNGM=NfcEi_ 


KOUNT  7 -kGUi\7  7 +iNEEo 
A2T«0« 

iMStNSt  6Wi  i  „fi2  )  i /i3*i /16 
WRITE  OUTPUT  TAPt 
FORMAT  ( 4 1H  ^  AZxMUT;, 

UO  160  i=i*NLEL 


uF  UNHESOLVLO  TArtubT) 


4bA6-nRt50L( i ) 

ir  lSLNSc.  SWI  TL«i2  )  171  /*! 716 

TAFir  b,l7^->JtAZlK0AS)9NPc50L(i) 
FORMA) ( i 3  *F io*  3  *  1 24 ) 

if  <«x.(NdAaj-A2i  )  160*160*2  77 
Ai.  i  =f\l  {  KoA*  ) 

ir  iXAbbr  (  M  (  J  )  )*■ 1)2/6*2  76*2  79 
OuLTA-RO ( AbAS ) -Ri ( XbAS )  - 

<jO  TO  16v; 


m-s 
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<L  t  j  ra-kut  AOAh )  ~R<;  (  XoAS  ) 

lb^  v.Oi«1  1  NUc. 

AO*5-kkc.bUL{  x  ) 

Xt«Ko-AZ i  admo ) 
bkinLL-AZ  (  kbAb ) 
uu  1  /'ll)  J  -Z  »NtbL 
numcj  -i'mc.bOL  (  i  ) 

i  i  { aZ  (  Nu/io )  -oHaLL  )  1  70  j  *  x  i  Oh  *1  <  Oh 
1  i  vH  i  r  {  XLAku-AZ  (  K.3AS  ) ) 1 7ub  *1/10*1/10 
j.i^^  ALak<j-AZ  (  kbAb ) 

Ou  T  u  1710 
17uj  *iiALL  =  AZ  (  KdAb  ) 

1  /  lu  f  *  NUZ 

oLv.  i  *(0  —  XL ARvj“oMaLL  +mZK  t  S 
NwibL  =ic.«^T  Wu/ A^Kub-f  *5 
ULf  fo  lib 
1~  d  loisT  i  Nui. 

NAb3  0 

i'll  i7  -0 
iiri-o 

if  tdiO 

dii  UO  WZ  1  f  K  -  a.  *  ft  T 

i«ikib-»'if'ibf  jl 
•4«*toT  (  ftrtb  )  -  i  Tk 
ftkibM  { Nfob )  =  -u 
d/d.  u  i  SVib  ( Ni'ib  )  -~<j 

dU  1  >d  b  I  b 

d  I  d  id<d  AOO  i  i  A  •  4  fill 

Imp-1 

U  T  T  u/->a  (  i  I  k  •)  -  1 
A  i  i\v/  — X  J  i  i  k  ) 

V  i  i\u-Y  (  i  f  K  ) 

u  i  i  i\A  —  Aidb-  (X  I  f'd-Arti'  (  i  Mi'  }  j 
l.  * .  r\Y  =  <-.~c >  (  »  i  Ao—  r  <-.t '  i  *  .if' )  } 
di  ooui-d  i  i  IN/-1  ‘ttdii  rvA’,i<Z 
dw  j.  OU  1  AK-d.  »N 

f  ^  i  i  aXsa^oi  (  X  f  uli-AAr  (  I  AH  J  ) 
i  u  l  (  KY=,‘wo!;  l  f  I  RU-YAk  < i AP  )  ) 
i  h  (  i  D 1 i-RX-DI  f-KX  )  16b*164*164 
io*+  1  f  (  T  u  1 1  KY-td  i  c R  i  )  it>!> »  16b  »  i66 

ibb  i  i;  t  hbO-  fi/i  i-  i\Xfc*c+  f  J  xf  rtY  **2 

i  r  (  Tu  I  bow“U  i  oovw )  167*ib6*166 
io/  .*V  TuAa  (  1  i  a  )  -  l»ir 
u  i  obvjs  i  u  I  bSO 
LfirRX=T0tkkX 
l>IHRY  =  TDIFKY 


2-132 


m-s 


Lbo  V.ONTINUL 

166  UiST  F  (  ilK  )  =SvJKTr  (  L>  ISSu  ) 
ill  UO  i  io  1  AP-  1  *R 
I  i'K  =  1 
1  U  i  I  =  1 

Y  Mr'r'-YAH  (  IAP) 

AAHP-XAP I IAP) 
uiFRX=ABSF<X( 1 rR)-XAPP) 

D1FkY=A8SF<  Y< ITRJ-YaFP) 
UiSS0a0lFKX**2+L>lFKY^^^ 
i  (4  Ou  1  fs  l  TK»2  n't  I 

i  ult-KXsADic  (  X  (  X  T R  )  -XAPP  ) 
i  u/ 1 1-  KY *At3S(-  (  Y  <  ITFO-YAPP) 

IKTDIFRX-DIFRX)  169*170,170 
170  IF(TDIFRY-DIFRY)  169*176*175 
169  TDISSQ=TDIFRX**2+TUIFRY**2 

Ir  (  TUlSoG-i/lSau)  l/3»l/?*i.i« 
i  7  -j  NA1  u  i  T  •=  I  T  t\ 

L)  i  SSW=  ft)  1  oSu 
l/  i  r  r<X  - 1  0 1 1  RX 
Li  i  r  KY  =  T0I  FRY 

175  CONTINUE 

OISTA«SORTF (DISSO) 

I F ( XABSF ( NTTOAA (NA 10  H ) )-IaP>  176*iY?*176 
177  NHT  =  NHT  +  1 

Nrl  r  f  I NHT  )  *NA1  OTT 

Nn'f  A  (NHT  )*IAP 

l<  ISnT  (  NHT  )  =D I STT  ( NATOTT  ) 

MHD=DISHT(NHT)*4, 

MMD*MHD+1 

IFIMHD-31)  140h«1405»14u5 
1405  DISH( 31 )»DISH<;>i )  +  ii 
GO  TO  Ihuo 

Ihu^  u  1 6H  (  NihL» )  -u  I  SH  ( MHO  )  +1 « 
i*+LO  CONTINUE 

N  I'TOAA  (NATOTT  )  *-NTT0AA  { NATOTT  ) 

GO  TO  178 

176  NFS-NFS+1 

NFST ( NFS ) “NATOTT 

NFSA ( NFS ) *  I AP 

01  Sr S< Nr S)=SOR|>  (DISSO) 

1 io  CON  I  1 NUt 

DO  440  I T R *  1 *NT 
I F (NTTOAA (I TR ) )  440*440*442 
442  NMS=NMS+1 

NMST (NMS) »ITR 
NMSA(NMS)«NV fGAA< ITR) 
u 1  SMS ( NMS ) *0 1  ST  T ( I TR) 

MUS=D I  SMS ( NMS ) / 5 • 

MUSaMDS+1 

I F ( MDS-31 )  1400*1401*1401 


.  -W?  V  '-T 


f 


] 

1401 

/ 

1 40  0 
i.  4u  2 
4*+U 

I.  P'=> 

I 


] 


01ST (  3 1 ) ®D I  ST ( 31 ) +1* 

GO  TO  1402 

uI5T(MD8)-DlST{ MOS ) + !• 
CONTI NUt 
luNT  I  NUd 
Cuin  T 1  NUd 

NFaRAT«(1UO0*NFS)/K 
NRiSRAT * ( 10<J0*NMS )  /NT 
NDTRAT*(1Q00*R)/NT 
NHTRAT  * ( 1 OOO^NH  r ) /K 


t 

| 

l 

i 


I 


i 

! 

i 

i 

! 


« 


! 


XNTSUM*{  10^uU;»Ti+6*K0UNT2+2“A0UNT3)  1 

NuR« ( 1GU0*X ) / ( N  SUMM 1  *  N  SUMM  2 ) 

NtSTKS  ( 10CG*NtSDT ) /NSUM12 

ANDR-NDR 

ANDR«ANDR/1000# 

AND2«aNDR**2 

FFF3*NESTR  •] 

FPh  3«r Fr 3/lOOU# 

AK1“AK1-*ANu2 

XX*XX+1* 

Ir (XX-(5i.+CL0CKS) ) 644# 843 #844 

843  PRINT  645  *MON i h  #NDAY  #NYEAR  J 

XX^CLOC^S 

PRINT  5v02 
rKiiMj  >  «Jv  »CAit  *NT 
84i  c  uKmh i ( iwoH l 

i  DATE  RUN  1 3  * iM/ i 2 • in/ 1  i 

22) 

PkINT  701 

844  vUNTINUu 

Ki\INl‘  7w2  #CCOCK #K#NSUMK1  #HSUi',ii*<2  #NS0i''ii'}3 »N>  S #NHT#hFS  #NFARAT  #r»HfKAi  t 
Xi'O’iim A  f  *iwl  RAT  *K0UNT6  *KGUNT  7  #AOUNT 8  #KuUNT S  *XNTSUi*«  »KOUNI  2  #NL>i\  #.‘«fcS  I  in 
X  #NtSO i 

I F ( SENSE  SWITCH  1)  1707*1708 

1 7  0  7  PUNCH  1709  *  CASE  #CLOCK»N6UM12  #K#XGUNT  5  # NOR  #NcS  I K  *Ni.6DT 
1709  FORMAT (2F6*0#6I6) 

1708  XK»XX+K 

AK2*XX24NSUMMi 
.\Ki*XK3+NSUMM2 
kkh-<X4+NHS 
Xk5sMC5+NHT 
kK6*nk6+NFS 
XK7aXK7+XOUNT  6 
NX8«XA8’t‘XUUNT8 
r * u* AK9+AN0R 


1  \A 


IH.S 


FFF1“FFF1+FFf3 

FFF2*FFF2+(FFF3)**2 

702  FORMAT (F6*0*2I4»3I7*2I4*I5»317»I6*3I4*2I6*3I5) 

1F<<3)  8075*8075*8076 
6076  CONTINUE 

WRITE  OUTPUT  TAPt  4*9GQ*CASE*Ci-0CA*NT *X 
9Uu  FORMAT  JFU.e>*FlO*0»215) 

DO  901  I*1*NT 

9ul  WRITt  OUTPUT  TAPE  4*902*X«n*YU) 

902  FORMAT <5f 14*4) 

IF(k)  6000*6001*6000 

6000  DO  9U3  I  * i *K 

9u3  WRITE  OUTPUT  TAPE  4*9o2 *XAP ( I )  *YAP  < i ) »SCTWDi ( i) t A2T1 ( I ) * aRANGE ( I  I 

6001  CONTINUE 
8u/3  CONTINUE 

359  IF(X6)  361*561*362 
562  KEN*6 

1HNMS)  2l0u*2c00*2lu0 
cluu  uo  906  I*1*NMS 

906  WKiTc.  UOTPwT  TAPt  3  *90  7  *AwN*CASc. *oLvv.R*Ni'i8T  (  I )  *N4vt3a  (  i  I  *u i  SiviS(  I  ) 

2200  CONTINUE 

.iOi  IF(K/)  365*3o3*364 

364  KEN* 7 

IF(NhT)  2l01*^10<:*2i01 
2ioi  DO  308  I*i*NHT 
I S»NHT  A ( I ) 


ID»NHTf< i ) 

9uu  WRITE  OuirUT  imFe.  3*  yu  <  *KEN*CAoL*CLOuiC*Nrl  T  i  1 1  )  »N;i  I  m  i  i  I  tJl  ^ri  |  «;  )  * 
IX  ( ID) *Y(Iu) *XAP( i o ) »YAP( 18) 
c 102  CONTINUE 
363  I F ( Ad )  363*363*566 

366  KtN-6 

if (NFS)  2i03*21o-T»2iOi 
2iu5  DO  I  -  i  ♦  N F o 

9oi  WRITE  OOThUT  TAPt  3*  907  *num*CAoc  *v.LGcR*NT  5  V  I  l  i  ♦•'•r  S*  (  I  )  *  Oi  8r  8  (  I  ) 
365  cONT i NUE 

c 104  CONTINUE 
00  TO  / 

3ui  iCEN*0 

PRINT  5^3p *Kr •  Ax2 *Rru ♦nR‘+*kK^*;ciC6 ».nK  4  *kno 
,‘ORMnT  (  H.-l  TOTi6*I^*ib*Ix5*2i5*i^l*li4) 
r’RlNT  1/11  *«K9  *mk1  *FFF  1*1  FF  2 

i/lx  FOkMaT  (  13H  oUi'i  vt  Nuts-  F10*4*23n  SUM  OF  SooaRlo  isu>\-r  xx*6*  x4ri 

XiUM  Ur  4«lSTk-F  10*4*25rt  SUM  Or  SOUAKtS  UF  NuSTis-r  xx*o ) 
rORMAT(?Ft  TuTALI  14*  I  j  •  I  ia  ) 
r  K I N  T  645  *MuN  i  n  *i»Dm  Y  ti'i'r  t.  Ak 


hi-s 
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T 


7 


/ 


looo 


loo  (‘ 
lvuo 

•lAO  ') 


ioo  b 


PRINT  7oO#CASE*Nr 
PkiNl  bu(iij 
HKlNl  1066 
rORMA  I  ( 66H 
i  ) 

PRINT  ie67 
PQr».tMT(?0h 
lot-K  sTu  FRtU  ) 
r  UKMA  l  ( 37h  HITS 


HITS 


GPPtk  NUMBER  STO  r KEU 


MISSES 


LtiHC.1'  NU)‘i 


LUWtK  UPPER  NUMBER 


MISSES  ) 

LOWER  UPVcR  MUM..1 :  X 


1  ^  1  i 

141o 


r  UKMm  T  (  4ori 
XLOW“U# 

1 1 1  Gt  i-b  • 

XLO*0. 

riIG=*<ib 

00  166 ii  1  a  1  *  3  i 
SUX-SUX+U1S 1 ( 1 ) 

SUivi  =  5UM+U  i  Sh  <  I  ) 
oUX*100v«/5Ua 
SUM*100o#/5UM 
UO  1411  l=i*3i 
LXX*UISri(  I  )  *bUH+0 
oYY-UiST(IJ  *SoX+*S> 

PKINI  l‘flu»XLO*HlG*UlbHl  I  )  *LXA#XcOW*HlGn#L>iSTi  I  )  *LYY 

PREO-(rilG“XLO)  /*#-*-XLO 

r  kL0= ( Hi GH—XLOW )/^*+XLoW 

*-KtO^!*FktiWii+f  REO**  2*UI  in  (  i  j 

(  KLUk*rkLOit+t  RcU**<j:*u  i  ai  (  I  ) 

r k c  1  - T  Kcl+r  RtO*Uibfi(  I  ) 

rKc_<'“rKu<I-»'(-RcD’'L/ibi  (  1  i 

UXnaOXH-fUlSrH  i  J 

iAMsuxM+UISI  I  i  ) 

XLOWarl  I  Gri 
hlGH-HlGh+b* 

XLO*HIG 

HIG*HIG+«<!b 

FORMAT  (fiu«4*F7*c*r'S*U»I10#TlU*0*F7#U*F6*0*llU) 
SIGMAHssQRTF  (  FUtUi /UXH- i  Pktl/DXH )  *  *2  ) 

S IGMAMabOAT  t  (  r  ialo^  /  OXi*i~  I  l*fi£2/uXM  *  *2  ) 

oARH=FREi/GXH 

6ARM»F RE2/UXM 

PRINT  ibov  »  oIOMAIi*  51 0-SAM*6ArtH»bARM 


4.ooy  J- u.m'iAT  (  i  Jn  SIGMA  HI1T6*3»11:I  5iOii«  ii  t5ar  6«  s>t  >.i  i-ilmm  ,m> 

a  Me AN  MISSP9.3) 
i r ( kO )  369#3o9*3/u 
3  TO  nloH  =  .002- 

Hr\IN7  843*M0NI H#Nl>AY tin)  cAk 
ouo^  ruKi'lAT  ( lril  ) 


1 

1 

] 

] 

] 
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m-s 


rniiif  5uO^ 

Pr\lNl  7uO*CASE*NT 
Pt\iNT  450 

45O  FGKMAT{4bh  F RLOUcNv. Y  uiolrwoOlii/H  csiuiiMu  10  NOISE  ) 

rtsiN'l  45 1 

4  5  i  i-'UKi'irtl  (h^H  LIMITS  LIMITS) 

r"i\  i  M  f  452 

f  i  OM'ini  ( faori  LOWcR  UPPER  NUMBER  LOWEi*  Ui  >  Li >.  .mUi-iOck 

jl  LOWER  UPPER  NUMBER  > 

XL0Ws*0 
XL0WR=#io2 
XLO*  #  204 
AnlO-t^Oo 
ri  i  ohr(-  •  1 04 
00  4  5  j  l  *  x  1 5 1 

PRINT  454  *XLoW  »rtiGri»NS  1 OHC<  I  )  *XLGWK*hI  Gsm  *Nai  onO  ( I  ■*  51 )  *XLO  *  Xi  >i  u* 
lNoI  oi^u  (  I  +  lol ) 

4  54  i  uRMAT  (F6«5»i5*_>*Io*rii»5*P>*3»I6**-lj*5»r?'*3*I6) 

XLO- Ah  I u 

Xn  1 0-  An  1  0+  •  uG<i 

^0(3  F  v/Ki»1m  I  (i  c«X«i'1tbti0trld*Jii-9t3tio) 

XLUW-nlbH 
hl(3H-HioM+»002 
XL0WR=H I GHR 

■*  j  i  H  1  6Hi\  =  n  i  uPlK  r  »002 

.;V  V.*mTli«Ui. 

<r0-  .  Oixi'tM  T  (  x  i  n  ^uRiNij  inlS  R^iLui  *5jr1  ^ZiMUTn  uiSKl^wlvu  Stov.ioRo  «l.\4  r 
XuU.hij  Wriicn  cON  Tmimcu  1  5  *8n  TmROETS) 

i  i'  (  IS.  J.  )  fOd  *4t>0  **»C)i 

40I  rAinl  845  #M0i\  i  rtnwMf  *N  r  i_AK 
PKlNi  /vU»LmoL*NT 
t-.viNl  4  7 2 

U-i-u 

LL2»U 

LL3=0 

uO  464  132*50 
LLi=Lul+LJ  f HX { I ) 

LL2-LL2+LA2DEX  < I ) 

5556  Lu J=LL3+L TOTX ( i ) 

-ton  PRINT  462*1  »LJTrtA<  i  )  »LAZ0EXU )  »L  TO  i  X  (  I  )  *i 
rniNT  5557 *LLi »LL2 *LL3 

4?2  rOKi*)AT(57H  No  TmisOcTS  AZ  UNR  AZ+uLL  AZ+0tL+UThU<5  hu  TARoEl' 
IS  ) 

40Z  FORMAT  (  i  12  *  2 1  v  *  i  i.5  *  i  9  ) 

400  CONI  I  Not 
PAUSE  1 
OU  TO  1500 

'■j  v  i  FORMA  T  (  i3*Fi'-«*p*F5#0*2I6»5r8*2> 

9u 4  FORMA!  (  1  5  *  f  1  v*  5  *F5  *U  *  5  I  0  ) 

ENDT  0* 1 *0*0*1 ) 


m-s 
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SECTWD  =  AZRES 
NWIDE  =  1 


NESOT  = 

NESDT  4  NWIDE 


ANCLE  = 
A2T  +  CON  1 


ANGLE = 

A2T  -  CON  2 


A2TI  (K)  =  A2T 
SCTWD1(K)  =  SECTWD 
ARANCE (K)  =  RANGE 


BY  PASS  PRINT  OUT 


W.O.T.  5 


SENSE  SWITCH 

^  2  X.iu  J.  SECTWD,  NWIDE 

V.  down  XLARG,  SMALL 


BY  PASS 


SENSE  SWITCH 
2 


r  |F  ^^DOWN 
SENSE  SWITCH 
2 


KBAS  = 
NRESOL  (I) 


NWIDE  = 
SECTWD/AZRES 
f  .5 


Figure  2-5  K 


T 


7 


-*  v  -  I,''  -at- 


BY  PASS  OUTPUT 


1715 


W.O.T.  5 


J  AZIMUTH  NO. 
OF  UNRESOLVED 
TARGET*' 


BY  PASS  OUTPUT 


1717 


W.O.T.  5 


J.  AZ  (KBAS) , 
NRESOL  (I) 


OH 


KBAS  = 

' 

XLARG  =  AZ  (KBAS) 

NRESOL  (1) 

SMALL  =  AZ  (KBAS) 

NW1DE  = 

SECTWC/AZRES 

F.5 


SECTWD = 
XLARG  -  SMALL 
+  AZRES 


KBAS  = 
NRESOL  (1) 


CONTINUE  1710 


NO  1705 


XLARG = 
AZ  (KBAS) 


1703 


SMALL  = 
AZ  (KBAS) 


Figure  2-5  Modifications  to  Basic  Program  for  Raid  Size  Estimation 
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t  ■  4 


1 


1500 


DIMENSION  STATEMENTS 


NTTOAA  (100),  DISTT  (100),  NMST  (100),  X  (100), 
NMSA  (100),  DISMS  (100),  NHTT  (100),  Y  (100), 
NHTA  (100),  DISHT  (100),  NFST  (100),  M  (100), 
NFS  A  (100),  DISFS  (100),  DIFX  (100),  RO  (100), 
DIFY  (100),  R1  (100),  RMAX  (100),  RM1N  (100), 
RM1N2  (100),  R2  (100),  AZ  (100),  NRESOL  (100), 
NSIGNO  (153),  LJTH  (100),  LAZ  (SO),  XAP  (100), 
YAP  (100),  LAZDEL  (50),  LTOT  (SO), 

LJTHX  (50),  LTOTX  (50),  LAXDEX  (50), 

DIST  (50),  DISH  (50) 


READ  5050 
MONTH 


- N  / - \ 

>050  I  „  f  DO  5333  1  > 

,NDAY,NYEAR|  M  1  =  1,50  I  * 

T“  l[I__ 


READ  222 
XI,  Y1,  X2,  Y2, 
CONI,  CON2 


V 


1151 


PRINT  5002 
PRINT  700,  CASE.NT 
PRINT  1100,  CLOCKL, 
AZMUL,  DELMUL. 
AZRES,  DELRES, 

GAIN 

PRINT  701 


CLOCKL =NF 
CLOCKS  =  0, 
XX  =  0 


\  R1T2,  1152 

l  RMAX  (1),  KM1N  (1) 

|  RM1N2  (1) 

^  (  DO  1151  \ 

a  r 

/ - 

R1T  2,  1150 
NT.NF.1D 

_ J 

READ  3  CASE 
A2MUL,  DELMUl 
AZRES,  DELRE 


1177 


1153 


CONV  =  57.29577 
XO  =  500 
YO  =  500 
XI  =45«.«985 
X2  =  475 
Y 1  =  475 
Y2  =  543.3015 
KK  =  0  KK2  =  0 
KK3  =  0  KK5  =  0 
KK4=0  KK7  =  0 
KK6  =  0  KK8  =  0 
AK?  =  0  AK1  =0 


R1T  2,599 
CLOCK 


GO  TO 

301 

PAGE  9 


KOUNT1 
KOUNT2  =1 
KOUNT3=| 
KOUNT4 
KOUNT5=| 
KOUNT6 
KOUNT7 
KOUNT8  =| 
KOUNT9 
NSUMM1  = 
NSUMM2- 
NSUMM3  = 
SUML0  = 
SUM0=  0 
SUML1  = 
SUML2  = 


NESDT  =( 
NESTR  =< 


READ  5050 
MONTH,NDAY,NYEAR 


READ  222 
XI,  Y1,  X2,  Y2, 
CONI,  CON2 


UTOTX  (I)  =  0 
LAZDEX  (l)  =  0 


SUX  =  0 
SUM  =  0 
FRE1  =  0 
FRE2  =  0 
FRED  =  0 
FREQ  =  0 
FRED2  =  0 
FREQ2  =  0 
DXH  =  0 
DXM  =  0 


NESTR2  =  0 


PRINT  845 
MONTH, NDAY 
NYEAR 


READ  3  CASE 
A2MUL,  DELMUL, 
AZRES,  DELRES,  CAIN 


V 

NSICNO  (1) 

fl 

=  0 

DO  1153 
1  =  1,  NT 


R1T  2,1154 
X  (I),  Y(l) 


KOUNT1  =0 
KOUNT2  =  0 
KOUNT3  =  0 
KOUNT4  =  0 
KOUNT5  =  0 
KOUNT6  =  0 
KOUNT7  «=  0 
KOUNT8  =  0 
KOUNT9  =  0 
NSUMM1  =  0 
NSUMM2  =  0 
NSUMM3  =  0 
SUMLO  =  0 
SUMO  =  0 
SUML1  =  0 
SUML2  =  0 

NESDT  =0 
NESTR  =0 


GO  TO 
■  PAGE  2 

A 


Figure  2-5  (Cont.  ) 
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6. 


8 


RO  (1)  ■=  [OIFX  (l)**2  +  DIFY  (l)**2]K 

di /iwf/Y/n  vt^x/v  /h  -  Yn*l^  1 

K  0(1)5 

502  4 

i 

|YES 

SUMO  *  , 

SUM0+  R^j2 

YES 


fX  (I) 


<»> 


Ml 


SUML2  -  SUML2 
+ _ I 

BiTn2 


660 


CONTINUE 


IS 

RO  (I)  ^ 
RMAX  (I) 


NO 


YES 


501 


SUMLO  =  SUMLO 
+  1/RO  (I)2 


SUML2  =  SUML2 
+  RM1N  (I) 


NO  «« 


SUMLO  * 
SUMLO  + 
RMIN2  (I) 


651 


SUML1 = 
SUML1  +, 
1/R1  (I)2 


Ir2  (I)  -  [X  (I)  -  X2)2  +(Y(I)  -  Y2)2]H 


SUMLH- 
SUML  I  + 
RM1N2  (I) 


650 


CONTINUE 


Figure  2-5  (Cont. ) 
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56 


FROM  B 
PAGE  2 


|  AZ  (J)  -  AZ  (KBAS)| 

FRACT  = 

1 

1 

1 

AZRES 

RO  (KBAS) 

/ 


Figure  2-5  (Cont.  ) 
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NRESOL  (KLOO) 

Sw  -  J  ^ 


|IND=  I 

INRESOL  (KLOO)I 


LTOT(LINDX)=  |NO^^|S  ^ 

NEEL  LINDX  >5(1 


LTOTX  (NEEL)  = 
LTOTX  (NEEL)  +  1 


^  IS  ^ 
KLOOSNEEL 


KLOO = KLOO 
+  1 


CONTINUE 


SELECTING  LARGEST  AZIMUTH 


AZ  (KBAS)  -  A2T 


A2T  s  AZ  (KBAS) 


135 


136 


NRESOL  (KLOO) 


||ND=  I 

INRESOL  (KLOO)I 


M  (J)|  =  l 


YES  I  ADELTA  = 

►4-4  RO  (IN  D)  _ 

I  Rl  (IND) 


DO  W9 
1=1, NT 


IS  .. 

!  m  (j> !  -  o 


ADELTA = 
RO  (IND)  - 
R2  (IND) 


Tx7d  IN  OTHER 
.  TARGETS  NOT 
I  RESOLVED  FROM  KLOOTH 


|M  (J)  |  =  |  M  (l)L 


>2  (|)-A2(KLOO)J 
^SAZRES^^ 


EEL)  = 
EEL)  +  1 


r  IS  ^ 
KLOOSNEEL 


KLOO = KLOO 
+  I 


1491 

CONTINUE 


RO  (I)  -  Rl  (I)  IS  .  ^ 

-ADELTA  >  M(J)|=  L 

^  DELRES 


NEEL  =  NEEL  +  1  I  NO 
NRESOL  (NEEL)  =  I  !■<-' 
M  (I)  =  _M  (I)  1 


S'  is 

RO  (I)  -  R2  (I) 
-  ADELTA > 
DELRES  . 


SELECTING  LARGEST  AZIMUTH 


277 

278 

AZ  (KBAS)  -  A2T 

w 

^  YES 

.YES  DELTA = 

Rl  (KBAS) 

DELTA = 

RO  (KBAS)  - 
R2  (KBAS) 


I  160 
CONTINUE 


END  J  DO  LOOP 
100 


CONTINUE 


GO  TO 
TOP  PAGE 
7 


Figure  2-5  (Cont.  ) 
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GOTO 
PAGE  7 
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HIT  FREQUENCY  DISTRIBUTION 


1405 

DISHT  (NAT)  = 

DISTT  (NATOTT) 

MHD  =  DISHT  (NHT)  +  1 
MHD  =  MHD  +  1 

DISH(MHD)  = 

DISH  (MHD)  +  1 

1406 

CONTINUE 
NO  OP 


DISH(3I)  = 

DISH{31)+  1 


DO  440 
ITR  =  1,  NT 


178 

CONTINUE 


NFST  (NFS)  = 
NATOTT 
DISFS  (NFS)  = 
DISSQK 


NFS  =  NFS +  1 
NFSA  (NFS)  =  IA 


NTTOAA  (NATOTT)  = 
-NTTOAA (NAfOTT) \ 


CALCULATE  RATES 


CONTINUE 
NO  OP 


CONTINUE 


NFARAT = 
(1000  NFS)/k 


NMSRAT  = 

(looo  nms)/nt 


NDTRAT  = 

(1000  k)/mt 


NHTRAT = 
(1000  NHT)/^ 


Figure  2-5  (Cont. ) 


2-153/2-154 


/ 


WRITING  SPECIAL  TAPES 


PF  FACE 


1002  I  .  PRINT  700  1  -  PRINT  701  I  ^ 

l  y  CASE.  NT  HEADER  f^V 


144 


NORMAL  FRAME  OUTPUT 


PRINT  701 
HEADER 


CONTINUE 


> 


NO  CIP 


FS 


PRINT  702 

CLOCK,  K,  NSUMM1 
NSUMM2.NSUMM3, 
NMS,  NHT,  NFS 
NFARAT,  NHTRAT 
NMSRAT,  NDTRAT 
KOUNT4.KOUNT7 
KOUNTI, (COUNTS 
KNTSUM,  KOUNT9 
NOR 


— / — L-\  — — 

|002  f  on  Ml  1  W0T  4#*® 

™ ,-,'NT  cant;kci 

.MTIOI 


DOWN 


KK  +  1 

KK2+NSUMM1 
KK3+NSUMM2 | 
KK4+NMS 
KK5+NHT 
KK4  —  KK4+NFS 
KK7  *  KK7+KOUNT4I 
KKI  -  KKI+KOUNTSl 
AK»  -  AK9+ANDR 


PUNCH 
I  CASE,  CLOCK, NSUMUl 
I K,  KOUNT5,  NDR, 
Inestr,  NESDT 


PFFI-FFF1+FFF3  ,1 
FFP2— FFF2+(FFF3)** 


PPI 

2200  | 

.N-7 

t-  S  \  *l°f  DO  900  1  ^ 

^^S^NHT  -  1  ■  *  1#  NHT  I"*" 

IS  -  NHTA  (1) 
ID-  NHTT  (1) 

CONTINUE  XK7'lo 

YES  I  YESI  3 

WOT  3,707 
KEN,  CASE, 
CLOCK,  NHTT  (I) 
NHT A  (I)  DISHT  (I) 
X  (ID),  Y  (ID) 

XAP  (IS)  YAP  (IS) 


Figure  2-5  (Cont. ) 
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__ 


1 


TEST  IF  ALL  FRAMES  ARE  DONE 


FROM  PAGE  8 


CLOCK +  I 


IS  ^ 
CLOCK> 
CLOCKL 


N°  (  DO  998 

i = i.nt 


lx  (l)=  X  (l)+  DELX  (1)1 
IT  (l)=Y  (D+DELY  (l)| 


LXX=  DISH  (I) 
SUM+  .5 
LYY  =  DIST  (I) 
SUX+  .5 


DO  1411 
1  =  1,31 


SUX=  1000/SUX 
SUM=  1000/SUM 


SUX  =  SUX+ 
DIST  (I) 
SUM®  SUM+ 
DISH  (I) 


DO  1688 
1  =  1,31 


XLOW=  0 
HIGH®  5 
XLO=  0 
HIG=  ,25 


PRINT  1410 
XLO,  HIG,  DISH  (I) 
LXX,  XLOW,  HIGH 
DIST  (I),  LYY 


FREQ  = 
(HIG— XLO)/2 
+  XLO 


FRED  = 

(HIGH-XLOW)/2 
+  XLOW 


FREQ2=  FREQ2 

+  FREQ2* 

DISH  (I) 


FRED2=  FRED2 

+  FRED2* 

DIST  (I) 


FRE1=  FRE1 
+  FREQ'DISH  (I) 


RAMES  ARE  DONE 


FROM 


» - N 


PRINT  5000 
HEADER 


Figure  2- 


1 


1 


370 


1 

HIGH  «= 

II 

.002 

PRINT  5002 
HEADER 


I  >  PRINT  700  Lfc.  PRINT  <50  L.  PRINT  451 

CASE  NT  p  HEADER  HEADER  p 


PRINT  452 
HEADER 


XLOW  *  0 
XLOWR  =  .\02 
XLO-.204 
XHIG -.206 
HIGHR  •=  .104 


XLO-XHIG 
XHIG  =  XHIG  +  .002 
XLOW  =  HIGH 
HIGH  "HIGH  +  .002 
XLOWR  ■=  HIGHR 


PRINT  454 
XLOW,  HIGH, 

NSIGNO  (I ), XLOWR 
HIGHR,  (NSIGNOO+Sli 
XLO,  XHIG 
NSIGNO  (I  + 101) 


KDO  453  A 

'iS  ) 


LL1  =  LL1+  LJTHX(I) 
LL2  =  LL2  +  LAZDEX  (I) 
LL3  «=  LL3  +  LTOTX  (I) 


464 

1, 

PRINT  462 

1,  LJTHX  (1) 

PRINT  5557  | 

LAZDEX  (1) 
LTOTX  (l),l 

LL1.LL2.LL3  T 

'  1 

NORMAL  END  OF  PROGRAM 
460 


CONTINUE 


NO 


Figure  2-5  (Cont.  ) 
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2.  6  HISTORICAL  DATA  PROGRAM 


Inputs  to  the  Historical  Data  Program  are  from  tape  and  cards.  The 
tape  input  contains  the  information  to  be  analyzed.  The  input  cards  contains 
the  information  designatihg  the  specific  case  and  specific  frames  on  tape  to 
be  analyzed.  At  the  start  and  finish  of  each  subprogram,  a  hollerith  card 
is  read  and  printed.  These  hollerith  cards  are  used  to  convey  specific 
operating  instructions  to  the  machine  operator.  The  hollerith  cards  are 
themselves  inputs  and  care  should  be  taken  to  keep  them  in  correct  order. 

1.  Card  inputs  to  the  continuity  subprogram 

Card  1)  Hollerith  Card  (read  at  beginning  of  analysis) 

Card  2)  Variable  Card  CASE1  (F5.0),  START1  (F5.0), 

END1  (F5.  0),  START3  (F5.  0), 

END3  (F5.0),  NT 

Card  3)  Hollerith  Card  (read  at  end  of  analysis) 

2.  Card  inputs  to  the  miss  distance  subprogram 

Card  1)  Hollerith  Card  (read  at  beginning  of  subprogram) 

Card  2)  Variable  Card  CASE2  (F4.  0),  START2  (F4.  0), 

END2  (F4.  0),  RAINTR  (F3.0), 

AZINTR  (F3.  0),  K1  (12) 

Card  3)  Hollerith  Card  (read  at  end  of  analysis 

Output  from  the  continuity  subprogram  will  be  printed.or  punched 
cards,  or  tape. 

2.  6.  1  Glossary 

A  A  dummy  storage  location  used  read  the  X 

variable  from  tape  while  searching  tape  for 
desired  position  where  analysis  begins 


AMDIST 


AZ 

AZAPP 

AZINTR 


AZMID 

B 


C 


CASE 


Arithmetic  mean,  computed  on  the  number  of 
entires  in  each  of  the  specific  RA/AZ  blocks  for 
either  (1)  the  missed  distance  in  a  "hit"  pair, 

(2)  the  difference  in  ranges  in  a  "hit"  pair,  or 

(3)  the  difference  in  azimuths  in  a  "hit"  pair 

True  target  azimuth 
Apparent  target  azimuth 

Number  of  azimuth  intervals  used  in  the  miss 
distance  analysis 

Midpoints  of  the  various  azimuth  intervals 

Dummy  location,  used  to  store  the  Y  variable 
while  reading  tape  to  locate  the  correct  starting 
position 

Dummy  location,  used  to  store  the  XAP  variable 
while  reading  tape  to  locate  the  correct  starting 
position 

Identification  numbei  for  a  case 


CASE  1 
CASE  2 

CLOCK 

CLOCKA 

COUNTR 


D 


The  case  to  be  analyzed  in  the  continuity  subprogram 

The  case  to  be  analyzed  in  the  miss-distance 
subprogram 

Frame  identification 

Frame  identification 

A  counter  used  to  determine  (and  correct)  the 
possibility  of  encountering  blank  frames  while 
processing  tapes 

Dummy  location  used  to  store  the  XAP  variable 
while  reading  tape  to  locate  the  correct  starting 
position 
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III-S 


DENOM 


The  total  number  of  frames  processed 


DISHT 

DIST 

DIST  1 
DIST  2 

DISTSQ 

IC 

END  I 

END  2 

END  3 

HARRY 


The  distance  between  a  true  target  and  an  apparent 
target  in  a  "hit"  pair 

The  summation  of  the  specific  difference  variable 
(HARRY)  for  each  of  the  RA/AZ  blocks 

Square  of  DIST  (DIST2) 

This  variable  is  the  number  of  observed  targets 
(XOBSVN)  in  a  RA/AZ  .section  multiplied  by  the 
sum  of  squares  of  HARRY  (  E  (HARRY)2) 

2 

Summation  of  (HARRY) 

Dummy  location  used  to  store  the  YAP  variable 
while  input  tape  is  searched  for  correct  starting 
position 

Last  frame  to  be  processed  with  respect  to  the 
binary  tape  output  section 

Last  frame  to  be  processed  with  respect  to  the 
miss- distance  subprogram 

Last  frame  to  be  processed  with  respect  to  the 
continuity  subprogram  analysis 

The  miss -distance  subprogram  is  capable  of 
performing  analysis  in  either  the  three  separate 
modes  (i.  e.  ,  (1)  the  frequency  analysis  is 
performed  with  respect  to  rhe  distance  between 
the  true  and  the  apparent  target  in  a  "hit"  pair 
(2)  the  frequency  analysis  is  performed  with 
respect  to  the  difference  in  ranges  between  the 
true  and  apparent  in  a  "hit"  pair  (3)  the  frequency 
analysis  is  performed  with  respect  to  the  differ¬ 
ences  in  ranges  between  the  true  and  apparent 
target  in  a  "hit"  pair);  HARRY  serves  as  a 
common  location  for  each  of  these  cases 


III-S 
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II 

JJ 

KEN 

KMAX 
K  1 


MCASE 

MF 

MISS 

N 

NFREQ 

NHTA 

NHTT 


The  number  of  range  intervals  (RAINTR)  used 
as  a  DO  LOOP  limit 

The  number  of  azimuth  intervals  (AZINTR)  used 
as  a  DO  LOOP  limit 

Identification  number  for  different  types  of 
historical  data  which  were  written  previously 
on  tape  3  by  TLQ-8  program 

Number  of  detections  per  frame 

Control  constant  used  to  control  the  specific 
analytic  modes 

1)  K1  =  1  analysis  is  performed  on  DISHT 

2)  K1  =  2  analysis  is  performed  on  "difference 

in  ranges"  (see  HARRY) 

3)  K1  =  3  analysis  is  performed  on  "difference 

in  azimuths"  (see  HARRY) 

Same  as  CASE 

The  number  of  frames  encountered  during  the 
tape  analysis  in  which  no  detections  occurred 

The  total  number  of  frames  missed  per 
target 

A  variable  used  to  record  runs  of  length  "N" 
where  N  is  the  number  of  consecutive  missed 
frames  (0  <  N  <  15) 

The  number  of  times  a  specific  target  was  missed 
for  a  length  of  "N"  consecutive  frames 

The  number  of  the  apparent  target  in  a  "hit"  pair 

A  counter  used  to  tabulate  the  number  of  con¬ 
secutive  missed  frames  for  the  individual  targets 
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NT 

N1 

N2 

RA 

RAMID 

RAINTR 

RAPP 

RATE 

RAIVSZ 
STADEV 
START  1 
START  2 

START  3 

TOP 

X 

XAP 


Number  of  targets 

Dummy  location  used  to  store  the  variable 
NHTT  while  searching  tape  for  the  correct  tape 

Dummy  location  used  to  store  the  variable 
NHTA  while  searching  tape  for  the  correct  tape 

True  target  range 

Midpoints  of  the  range  intervals 

Number  of  range  intervals  used  in  the  miss  distance 
subprogram 

Range  of  the  apparent  target 

The  ratio  of  the  total  number  of  times  a  target 
was  missed  to  the  maximum  number  of  misses 
possible 

The  specific  size  of  the  range  intervals 
Standard  deviation 

Starting  frame  for  the  binary  tape  output 

Starting  frame  for  analysis  in  the  miss  distance 
subprogram 

Starting  frame  for  the  continuity  analysis 
See  MISS 

X  coordinate  of  the  true  target 
X  coordinate  of  the  apparent  target 


XOBSVN 


The  number  of  targets  observed  in  a  specific 
RA/AZ  interval 


XOBS11 


(XOBSVN)  (XOBSVN-1) 


Y  Y  coordinate  of  the  true  target 

YAP  Y  coordinate  of  the  apparent  target 

2.6.2  FORTRAN  Listing 

DIMENSION  NMIbo(6u)  »NFRFQ<  60.16  )  *NHTT(  60)  ,NHT  A  (  60  )  *D  I SHT  (  60  )  *X  (  60  ) 
1  *  Y  ( feu  )  , XAP  (  6U  )  ♦  YAP  (  60  )  »RA ( 60 )  » AZ ( 60 )  ,RAPP<60)  *AZAPP(60)  *XOi3SVN(25* 
218)»DIST(26*18)»DISTSQ(25»18) *RAMI D ( 18  >  *AZMID( 26 ) *AMD J  ST ( 60 ) » 
3VARNCL (60) »STADFV ( 60 ) ,M(60) 

6  READ  6 
6  FORMAT (72H 
X 

PRINT  6 
PAUSE  1 

I F ( SENSE  SW I T CH2  )  20 »  i  0 
20  REWIND  3 
END  FILE  4 
REWIND  4 
GO  TO  5 

10  IF (SENSE  SWITCH  1)40,30 

30  READ  3 1 »C ASE i ♦ START i » END1 ♦ START3 tEND3 *NT 

31  FORMAT  (?)  6.0, 1 3  ) 

C0U.NTR  =  ST  ART1 

MF  =0 

DO  50  J  = 1 , N T 
M  (  J  )  =  0 
NMISSf J)=0 
DO  50  N= 1 ,15 
60  NFRP0(J,N)=0 
SENSE  LIGHT  1 
SENSF  LIGHT  2 
SENSE  LIGHT  3 
SENSE  LIGHT  4 
1=1 

60  READ  INPUT  TAPE  3  » 6 1  *K.EN *CASF  .CLOCXA ,N  1  ,N2 ♦  A ,b  »C  ,0  ,  E 

61  FORMAT!  I 5 *F 1 0 . 5  * ? 5 .0 , 2  I  8 » 5F8  •  2  ) 

62  IF | SENSE  LIGHT  1)65,75 
65  SENSF  LIGHT  1 

I F ( C ASF  1 -CASE ) 7 1 ,70,71 
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71  1 F ( KEN-7 )  72 ,60  *72 

72  PRINT  73»KEN»CLOCKA 

73  PAUSfT239K  KEN  ISN°T  E0UAL  T°  CHEC<  TAPE.  KEN=I3.7H  CL0CK=I4) 

70  IF ( SENSE  LIGHT  1)75*75 
75  I F ( SENSE  LIGHT  2)60,85 
85  I F ( SENSE  LIGHT  3)402*403 

402  SENSE  LIGHT  3 
GO  TO  4L1 

80  SENSE  LIGHT  2 

!F(  'TART1-CLOCKA)400*400.71 

400  1 F ( SENSE  LIGHT  2)401*401 

401  IFISTART3-CLOCKA+1, ) 81 *4 16 *87 

81  MF=CLOCKA-START3 
DO  82  K=1*MF 

DO  82  J=1,NT 

82  NMISS(J)*NMISS(J)+1 
COUNTR=COUNTR+FLOATF (MF ) 

MF*0 

416  I F ( SENSE  LIGHT  3)403*403 

403  I F ( CASE 1 -CASE ) 92 ,87 ,92 

92  I F ( END 3-CLOCK )93*87*93 

93  MF = END 3-C LOCK 
87  IF( 1-1  )  89 *88*89 

83  CLOCK=CLOCKA 

89  I F ( CLOCK A-CLOCK i  95  V9 1  ♦  £5 
95  COUNTR=COUNTR+l, 

IF (CLOCKA-COUNTR) 96*90*96 
*5  mf=clocka-countr 

COUNTR*COUNTR+FLOATF IMF ) 

GO  TO  90 
91  NHTTII )«N1 
NHTAI I )*N2 
DISHTI I  )  =  A 
XII )=3 
Y ( I ) *C 
XAP(I)=D 
YAPIDsE 
1*1  +  1 


GO  TO  60 
90  KMAX* I -1 

WRITE  TAPE  4,CASE1 , CLOCK, KMAX 
WRITE  TAPE  4* IXII ) *Y( I ) *XAP(I  )  *YAPI 
I F ( SENSE  LIGHT  3)412*404 
412  SENSE  LIGHT  3 
GO  TO  55 


* D I SHT ( I ) *  I *1 »KMAX ) 


IU-S 


2-167 


404  I F ( SENSE  LIGHT  4)407*101 

407  SENSE  LIGHT  4 

405  DO  150  I  *  1 »KMAX 
J*NHTT(I  J 

IF(NMISS(J) ) 150*150*146 

146  NaNMISS(J) 

IF! N- 15)146.148 *147 

147  MM=N-1 5 

M ( J ) =M ( J ) +MM 
N=13 

148  NFREQ! J*N ) *NFRtiQ  <  J*N )  +  1 
150  NM I SS ( J ) *-l 

DO  155  J» 1 *NT 

155  NMISS!  J)*NMISS(JH-1 
IF ( MF ) 102  *406  *98 

102  PRINT  103.COUNTR.CLOCKA 

103  FORMAT ( 24H  MF  IS  NEGATIVE*  C0UNTR»F4.0*8H  CLOCKA«F4*0) 

PAUSE  11 

98  DO  99  K= 1 »MF 
DO  99  J=1 »NT 

99  NMI SS ( J ) =NM I SS ( J ) +1 
MF=0 

406  I F ( END3-CLOCKA 1408*101*101 

408  I F ( SENSE  LIGHT  4)101.101 
101  IF(CASE1-CASE>165. 156*165 

156  I F ( END1-CLOCKA )165»55*55 
55  1  =  1 

NHTT ( I ) =N1 
NHT  A ( I ) *N2 
D I SHT ( I >=A 

xm*B 
Y( i >=c 
XAP ( I  )=D 
YAP ( I  )*E 
GO  TO  62 

165  DO  170  J=  1  *NT 
IFfNMISS(J) )170. 170*166 

166  N=NM I SS ( J ) 

IFCN-15 ) 168*168*167 

167  MM=N- 1 5 

M(  J)=M( JJ+MM 
N=  15 

168  NFREQ! J.N)=NFREQ( J,N)+1 

170  CONTINUE 
DENOM=END3-START3+ 1 • 

PRINT  171 *C AS El *DENOM 

171  FORMAT! 17H  CASE  ANAL YZED=F4. 0 ♦ 26H  MAXIMUM  NO.  OF  MISSES  I 


S  F4.0) 


2-168 


III-S 


PRINT  172 

17?  FQRMAT ( 120H  TARGET  NO.  MISSES  RATE  RUNS  OF  LENGTH  N=  1  2 

X  3  4  5  6  7  8  9  10  11  12  13  14  15  TOTAL  MISSES) 

MCASF=CASE 
DO  176  J-l.NT 
M  I  S  S  =  0 

DO  175  N=  1  *  1  5 

175  MISS=MISS+!N*NFREQ( J.N)  ) 

TOP=M I SS+M ( J ) 

RATE=TOP/DENOM 

PRINT  173»J»MISS»RATE, INFREQ! J.N) .N=l»15) * M { J  > 

173  FORMAT! 1 1 0  ♦  1 8  ♦  F9 . 3  ♦  I  24  ♦  141 4 , 1 9  ) 

176  PUNCH1 74.MCASE  »  J*MI SS,RATE ♦ <  NFREQ! J.N ) »N=1,15) 

174  FORMAT!I3.I2»I3,F4. 2,1514) 

GO  TO  5 

40  READ  41.CASF2.START2.END2.RAINTR.AZINTR.K1 

41  FORMAT ( 3F4.0.2F3.0, 1  2  ) 

RA I VSZ  =  25C./RAINTR 
AZIVSZ=3.1415927/AZINTR 

I F ( SENSE  SWITCH  4)410,411 
411  DO  178  1=1.25 
DO  178  J= 1  ♦  1 8 
XOBSVN ( I  , J) =0. 

D I  ST ( I ♦ J ) =0 . 

178  DISTSO! I ♦ J) =0. 

410  SENSE  LIGHT  3 

SENSF  LIGHT  4 
K 1 =K 1-2 

179  READ  TAPE  4. CASE  .CLOCK, KMAX 
I F ( SENSE  LIGHT  3)185,180 

185  SENSE  LIGHT  3 

IF (CASE2-CASE) 195, 190, 195 
190  I F ( SENSE  LIGHT  3)205,205 
195  READ  TAPE  4.A.B.C 
GO  TO  179 

180  IFICASE2-CASE )200, 205.200 
200  PRINT  201, CASE, CASE2.CL0CK 

?0l  FORMAT ( 94H  CASE  NO.  HAS  BEEN  RECORDED  WRONG.  ERROR  COULD  BE  IN  SEA 
XRCHING  OR  RECORDING  TAPE  3  OR  4.  CASE=F4.0.7H  CASE2=F4.0»7H  CLOCK= 
XF4.0) 

PAUSE  3 

205  I F ( SENSE  LIGHT  4)206.210 

206  SENSE  LIGHT  4 

IF {CLOCK-STAR T2) 195,207,207 

207  I F { SENSE  LIGHT  4)210,210 

210  READ  TAPE  4 ♦ ( RA ! K )  ,AZ ( K )  ,RAPP ( K ) ,AZAPP ( K ) ,D I$HT ! K 1 »K= 1 .KMAX ) 


I F  C  SENSE  Sw I TCH3  >392*393 

392  DO  390  K=1,KMAX 

390  PRINT  391.RAIK) .AZ (K) .RAPP(K) ,AZAPP!K) .DISHT(K) 

391  FORMAT! 5F10. 3  ) 

393  IF!KMAX)220.242,220 
220  DO  230  K=1,KMAX 

D 1  F  X  =  R  A  (  K )  -  5  0  0  . 

D I FY  =  AZ ( K ) -500  • 

R A ( K ) =$QRTF ( D I FX**2+D I F Y**2  ) 

AZ(K)=ATN1F(DIFY,-DIFX) 

DIFX=RAPP!K)~500. 

DIFY=AZAPP(<)-500. 

RAPP(K)=SQRTF!DIFX**2+DIFY**2) 

230  AZAPP(K)=ATN1F(DIFY.-DIFX) 

DO  240  K=  1 » KMAX 
J=(RA(K)/RAIVSZ)+1. 

I  =  .’AZ(K)/AZIVSZ)+1. 

XOBSVN ( I »  J ) =XOBSVN ( I  * J )  +  l  • 

I F ( K 1 >231.232*233 

231  HARRY=D I SHT ( K ) 

GO  TO  234 

233  HARR Y=  ABSF ( AZ ( K ) -AZAPP ( K  )) 

GO  TO  234 

232  HARRY  =  ABSF!RA(K)-RAPP!K)  ) 

234  D I  ST  ( I » J ) =D I  ST { I ,  J  ) GHARRY 
I F ( SENSE  SWITCH  3)300.240 

300  PRINT  301, KMAX. J.I .XOBSVN! I »J) »RA!K) *RA  PP !<) »AZ ! K ), AZAPP I K ) .HARR Y 

301  FORMAT (3I4,6F10.3) 

240  DISTSO! I » J ) =D I STSQ ! I , J ) +HARRY**2 

242  IF(END2-CLOCK)243. 245.179 

243  PRINT  244.CIOCK.CASE.END2 

244  FORMAT ( 56H  ENDING  FRAME  NO.  HAS  BEEN  BYPASSED.  CHECK  TAPES.  CLOCK= 
XF4.0.6H  CASE=F4.0.6H  END2=F4.0) 

PAUSE  4 

245  I  I  =RA  I  NTR 
JJ=AZ I NTR 

I F ( SENSE  SWITCh  5)5,808 
808  RAMIDf 1 ) =RAI VSZ/2. 

AZMID! 1 ) = AZ IVSZ/2. 

DO  250  1=2,11 

250  RAM  ID! I )  =  RAM I D ( 1-1 ) +RA I VSZ 
DO  255  1  =  2, JJ 

255  AZMID!  I  )=AZMID( 1-1 l+AZIVSZ 
IF(K1 >260,261,262 
260  PRINT  263 


2-170 


m-s 


263  FORMAT ( 62H  MISS  DISTANCE  ANALYSIS 
X  RANGE) 

GO  TO  269 

261  PRINT  264 

264  FORMAT (62H  RANGE  ERROR  ANALYSIS 
X  RANGE) 

GO  TO  269 

262  PRINT  265 

265  FORMAT ( 62H  AZIMUTH  ERROR  ANALYSIS 
X  RANGE) 

269  PRINT  270, (RAMIDI I ) , 1  =  1*  I  I  ) 

270  FORMAT (  9H  AZIMUTH  F6.1.17F6.1) 

DO  285  1  =  1, JJ 
DO  271  J= 1 , I  I 

AMD  I  ST ( J) *01  ST (I , J ) /XOBSVN ( I » J) 

D I  ST  1 =  DIST( I » J ) **2 

DI5T2=  XOBSVN ( I » J ) *DISTSQ I I .J) 

XOBS1 1  =  XOBSVN ( I »  J ) * ( XOBSVN ( I » J ) ~1 • ) 

VARNCEI J)=(DIST2-DIST1 )/XOBSll 
STADFV ( J) =SQRTF ( VARNCE ( J  )  ) 

I F { SENSE  SWITCH  3)271,289 

2  89  PUNCH  272, CASE2.AZ MIDI  I ) ,R AMI D I J ) .XOBSVN ( I . J ) .AMD  I  ST  I J ) .STADEV I J )  , 
X  VARNCEI J) ,DIST1,DIST2 

271  CONTINUE 

272  FORMAT (F5.0.F6. 3 ,F7. 1 . F6 .0 , 3F7. 3 , 2F 10. 2 ) 

AZMIDI I )=AZMID( I )/. 01745 33 

PRINT  273,1  I XOBSVN I  I » J ) ) * J=1 » 1 1 ) 

273  FORMAT (F13.0.17F6.0) 

IFIKl 1274,274,278 

274  PRINT  275,AZMID(I),(AMDIST(J),J=1,II) 

275  FORMAT (F6»1,F10.3*17F6,3) 

PRINT  276,1 STADEV (J)»J=1»II) 

276  FORMAT (F16,3,17F6,3) 

GO  TO  285 

278  PRINT  279,AZMIDII),( AMD  I ST(J),J  =  1,II) 

279  FORMAT (F7*1,F10#4,17F6,4) 

280  PRINT  281,1 STADEV ( J) ♦ J  =  1 » I  I) 

281  FORMAT  I F 1 6 • 4 , 1 7F6, 4 ) 

285  CONTINUE 
GO  TO  5 

END! 0 ,1,0, 0,1) 
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Figure  2-6  General  Flow  Charts 
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TT  (60), 

Y  (60), 
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I  (25,18), 
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READ 

HOLLERITH 

CARD 


PRINT 

HOLLERITH 

CARD 


^  IF  ^ 
SENSE  SWITCH 
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REWIND 

REWIND 
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4 
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READ 
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j = i,  nt  r*- 

MF  =  0 
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START 1 

CASE1,  START1, 

END1  START3, 

END3  NT 
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SENSE  SWITCH 
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GO  TO 
87 
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:F 


IF 
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^  IS  So 

START1  -  CLOCKA^— *- 
N.  =0  ^ 
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START3  -  CLOCKA^-M  CLOCKA  - 
+  J  I  START1 


END3  -  CLOCK 
=  0 


SENSE  LIGHT  3 
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Figure  2-7  Historical  Data  Analysis  Flow  Charting 
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CONTINUED  FROM  PAGE  2 


PRINT 

PUNCH 

(  DO  '75  ^ 

l . r 

MISS  =  MISS  + 

(N)  (NFREQ  (j.N)) 

- 

TOP  = 
MISS 

— 

RATE  = 
TOP 

DENOM 

--a- 

J,  MISS,  RATE, 
(NFREQ  (|,N). 

N  =  1,1  j) 

MCASE,  |,  MISS,  RATE, 
(NFREQ  (|,H),  N  =  1,15) 
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TURN  SENSE 
LIGHTS  3,4 
ON 


DISTSQ  <l.|) 
=  0 


XOBSVN  (l,|)  =  0 
DIST  (l,|)  =  0 


DO  178 
>  =  1,18 


DO  178 
I  =  1,  25 


ERROR 
PAUSE  6 


READ  TAPE  4 

CASE!,  CLOCK, 
UMAX 


IF 
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=  0 
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4 
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PRINT 
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PRINT 
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READ 
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AZIVSZ  —  3.  1415927/AZINTR 


200 
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PAGE  3) 
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DIFY  =  AZAPP  (K)  -  500. 
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AZAPP  (K)  =  ATNIF  (DIFY,  - 


300  DOWN 


DIST  (1,0  = 

Lj 

HARRY = 

DIST  (l,|)+ HARRY 

■ 
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UP 


PRINT 
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DISTSQ  (1,0  +  (HARRY; 
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6. 


Figure  2-7  (Cont. ) 
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Figure  2-7 
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Figure  2-7  (Cont.  ) 
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